TStringStream to BlobStream

[mr_fahrrad]

Hi

I have a problem when I try use the copyFrom to copy a BlobStream from a StringStream

Delphi-Quellcode:

procedure TfrmHelpEdt.sButton2Click(Sender: TObject);
var
blob:TStream;
StringStream : TStream;
begin

  with ADOTbl_HTDATA do //is a AdoTable
    begin
      Active:=true;
      Insert;
       blob:=CreateBlobStream(FieldByName('HD_source'), bmWrite);
       StringStream:=TStringStream.Create(getHtml); //getHTML function Return a string
       blob.Position:=0;
       blob.Seek(0, soFromBeginning);
       blob.CopyFrom(StringStream, StringStream.size);
      Post;
      Active:=false;
    end;

The field HD_Source not allow null and the error say "cannot insert null value in hd_source"...
so, I belive that error is in the line blob.CopyFrom(StringStream, StringStream.size);

Can anyone help me?