SQLite - 如何從XML文件插入JPG圖像（使用Delphi 2009）

Question

我需要讀取存儲在XML文件中的JPG圖像並將其插入到SQLite數據庫的blob字段中。

我可以按照下面的代碼所示完成其中的一部分，但需要幫助。請靜靜地告訴我如何閱讀XML文件中的文本位圖，並將其插入到數據庫的blob字段中？

這就是我已經可以做的。

我可以使用一個Delphi XML數據使用以下的（簡化的）代碼在數據庫綁定單元和存儲文本的東西從它讀出的XML文件：

procedure TForm1.BtnReadXML(Sender: TObject); 
var 
    sql : string; 
    Data : XML_Binding_Photos.IXMLSuperStarReportType; 
    RecNum : integer; 

begin 
Data := XML_Binding_Photos.LoadSuperStarReport ('Photos.xml'); 
Database1.Open; 
try 
    RecNum := 2; 
    SQL := 'INSERT INTO main.Photos (id , firstname) VALUES (Data.record_[RecNum].ID, Data.record_[RecNum].Fname) ;' ; 
    Query1.Close; 
    Query1.selectSQL := sql; //insert the data 
    Query1.Open ; 
finally 
    Database1.Close; 
end; 
end; 

我還可以插入從光盤一JPG圖像到數據庫中使用流是這樣的：

procedure TForm1.Insert_JPG_PhotoFromFile(Sender: TObject); 
var 
    strm : TmemoryStream ; 
begin 
Database1.Open; 
strm := TmemoryStream.Create; 
try 
    strm.LoadFromFile('C:\...\testpic2.jpg'); 
    Query1.Close; 
    Query1.selectSQL := ('INSERT INTO main.Photos (id, photo) VALUES (''999'', :photo)'); 
    Query1.Params.ParamByName('photo').LoadFromStream(Strm,ftGraphic); 
    Query1.Open ; 
finally 
    strm.Free ; 
    DISQLite3Database1.close; 
end; 
end; 

但我的XML文件中有一個JPG圖像，編碼如下：

<Record> 
    <ID>14046</ID> 
    <Fname>Fred</Fname> 
    <Photo>/9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAE - lots more of the same - txNxvd8dc44Htz/Ktx3Oe3T/AB96KK6DA//Z </Photo> 
    </Record> 

我可以使用XML數據綁定單元將構成位圖的字符讀入字符串或StringStream，但似乎無法將其正確保存爲數據庫中的斑點。我不想將每個XML圖像先保存爲jpg格式，部分原因是它已經以不同形式存在於光盤上，部分原因是xml文件中有成千上萬的圖像。另外，對於其他格式的圖像原因，我想把圖像放在數據庫中，而不是把它放在光盤上，只是存儲文件名）

Answer 1

這適用於從XLM文件中獲取圖像並將其插入到blob字段中的sqlite數據庫中。

此代碼使用XML數據綁定單元，以便從xml文件中以base64PhotoData中存儲的字符串的形式讀取base64編碼圖像。 然後它使用我放在窗體上的Indy TIdDecoderMIME組件（IdDecoderMIME1：TIdDecoderMIME）將base64解碼爲Tbytes類型的變量（稱爲DecodeBytes） 然後，要將該字節數組存儲在blob字段中，每個字節需要被轉換回十六進制，並且整個事物都以'x'爲前綴來表示它是以十六進制表示的。
該解決方案不需要流（雖然也許它可以轉換這樣做，如果這種做法是更好）

（所有報價均爲單引號）

Procedure TForm1.btnimportphotosfromxmlClick(Sender: TObject); 
var 
    sql : string; 
    XMLData : XML_Binding_Photos.IXMLStarReportType; //in unit XML_Binding_Photos 
    i : integer; 
    Base64PhotoData, DecodedPhotoData : ansistring; 
    DecodeBytes: TBytes; 
    PhotoBlobs : string; 
begin 
XMLData := XML_Binding_Photos.LoadStarReport ('Photos.xml');  //open xml as a IXMLStarReportType , created from the xml file with the XML data binding wizard 
Base64PhotoData := SIMSData.record_[2].Photo;       //get the xml photo data from xml file, in this test case the second record 
DecodeBytes := IdDecoderMIME1.DecodeBytes(Base64PhotoData) ; //decode base64 charater string to an array of bytes 

PhotoBlobs := '';           //initialsise the string we are going to insert into the blob field 
for i := 0 to high(DecodeBytes) do    //convert each byte to a hex charater so that it can be inserted into a blob 
      PhotoBlobs := PhotoBlobs + inttohex(DecodeBytes[i],2); 

SQL := '' 
+'INSERT ' 
+'INTO StudentPhotos (id, photo ) ' 
+'  VALUES (''777'', ' 
+'    x''' + PhotoBlobs +''') ' ;       // note the prepending of lower case x to the hex byte string 


DISQLite3Database1.DatabaseName := 'C:\...\testphoto.db'; 
DISQLite3Database1.open 
try 
    DISQLite3Database1.Execute(sql); 
finally 
    DISQLite3Database1.close; 
end;