在ms-sql 內有一欄位的型態是binary,用來存儲圖像檔案或pdf檔,存入資料庫是使用Blob轉換成String的方法存入,但怎樣可以從資料庫讀取出來再用Timage 顯示圖檔?

function BlobContentToString(filename:string):string;
var
fs:TFilestream;
begin
fs:=TFileStream.Create(filename,fmOpenRead);
try
setLength(result,fs.size);
fs.Read(result[1],fs.Size);
finally
fs.Free;
end;
end;

procedure TForm1.savedata(oFilename:String);
begin
if oFilename <> '' then
begin
with adoqReportDetail do
begin
FieldByName('PD_Content').AsString:=BlobContentToString(oFilename);
Post;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sm: TStringStream;
sm1:TmemoryStream;
begin

try
sm:= TStringStream.Create(adotable1.fieldbyname('BT1').AsString);
sm1:=TmemoryStream.Create;
sm1.CopyFrom(sm,sm.Size);
sm1.SaveToFile('c:\1.jpg');
finally
sm.Free;
sm1.Free;
end;
end;

------
星期一,二...無窮迴圈＠＠

procedure TForm1.Button1Click(Sender: TObject);
var
sm: TStringStream;
sm1:TmemoryStream;
begin

try
sm:= TStringStream.Create(adotable1.fieldbyname('BT1').AsString);
sm1:=TmemoryStream.Create;
sm1.CopyFrom(sm,sm.Size);
sm1.SaveToFile('c:\1.jpg');
finally
sm.Free;
sm1.Free;
end;
end;

------
星期一,二...無窮迴圈＠＠