如何获取TStream的二进制字符串

Question

因为，我要写sql语句如下
insert into table1 Fieldimage values Tstream.二进制字符串
谢谢！

Answer 1

var
  sFilename:string;
  Function BlobConnectTostring(const Filename:string):string;
  begin
    with TFileStream.Create(Filename,fmOpenRead) do
    try
      SetLength(result,size);
      Read(pointer(result)^,size);
    finally
      Free;
    end;
  end;
begin
  IF OpenPictureDialog1.Execute  THEN
  BEGIN
    sFilename:=OpenPictureDialog1.FileName;
    ADOQUERY.EDIT;
    ADOQUERY.fIELBYNAME('AAA').VALUE:=BlobConnectTostring(sFilename);
    adoquery.Post;
  END;
end;