Board index » delphi » May I found a Bug of TBlobStream.

May I found a Bug of TBlobStream.

Hi:
  I am using D4 and Oracle 7.3 connected with BDE now and have a very
strange question, following is source code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TBlobStream;
  Writer: TWriter;
begin
  Table1.Open;
  Table1.Insert;
  Stream := TBlobStream.Create( Table1.FieldByName('BLOBFIELD') as
TBlobField,
                                 bmWrite );  
  Writer := TWriter.Create(Stream,4096);
  Writer.WriteComponent(Button2);
  Writer.WriteComponent(Button3);

Quote
>>  Table1.Post;

  Writer.free;
  Stream.Free;
  Table1.Close;
end;

if 'Table1.Post'is absent, it will write nothing; or not pop up
error message of "General SQL Error:ORA-01459: Invalid length for variable
character string.", Why?

-Jodan

 

Re:May I found a Bug of TBlobStream.


Answered in delphi.objectpascal
--
Regards
Ralph (TeamB)
Herrsching, Germany
(TeamB cannot respond to questions received via email)
Quote
Jodan wrote in message <01bdf0cf$4410f360$02010101@develope1>...

Other Threads