恢复存储为sql数据库中的斑点的文档

Question

我从客户那里获得了一个sql数据库。在sql数据库中有一个表，称为“文档”。文档存储为斑点（看看截图）。

我想通过Delphi（FileStream？）恢复文件。你有什么想法如何做到这一点？

问候， 丹尼斯弗里德里希

Answer 1

function SaveFieldBlobToFile(FQuery: TDataSet): boolean; 
var MyStream : TMemoryStream; 
begin 
    Result:= false; 
    MyStream:= TMemoryStream.Create; 
    try 
    (FQuery.Fieldbyname('MODELE') as TBlobField).SaveToStream(MyStream); 
    if (MyStream<>nil) and (MyStream.Size > 0) then 
    begin 
     MyStream.Position := 0; 
     MyStream.SaveToFile('C:\Temp\tempMyFile.zip'); 
     Result:= true; 
    end 
    else Result:= false; 
    finally 
    MyStream.Free; 
    end; 
end; 


function LoadFileToBlob(FQuery: TDataSet): boolean; 
var MyStream : TMemoryStream; 
begin 
    Result:= false; 
    MyStream := TMemoryStream.Create; 
    try 
    MyStream.LoadFromFile('C:\Temp\tempMyFile.zip'); 
    MyStream.Position := 0; 
    TryEdit(FQuery); 
    (FQuery.FieldByName('MODELE') As TBlobField).LoadFromStream(MyStream); 
    TryPost(FQuery); 
    Result := True; 
    finally 
    MyStream.Free; 
    end; 
end;