X
XXXXX
Подскажите пожалуйста в чём проблема( строка Stream := TBlobStream.Create(ibquery1.FieldByName('messagebody')as Tblobfield, bmRead); выдаёт ошибку Invalit class typecast). Пример вроде правильнный(из Helpa)
)
procedure TForm1.FormCreate(Sender: TObject);
var
Buffer: PChar;
MemSize: Integer;
Stream: TBlobStream;
begin
ibquery1.open;
Stream := TBlobStream.Create(ibquery1.FieldByName('messagebody')as Tblobfield, bmRead);
try
MemSize := Stream1.Size;
Inc(MemSize); {Make room for the buffer's null terminator.}
Buffer := AllocMem(MemSize); {Allocate the memory.}
try
Stream.Read(Buffer^, MemSize); {Read Notes field into buffer.}
Memo1.SetTextBuf(Buffer); {Display the buffer's contents.}
finally
FreeMem(Buffer, MemSize);
end;
finally
Stream.Free;
end;
end;
end.
)
procedure TForm1.FormCreate(Sender: TObject);
var
Buffer: PChar;
MemSize: Integer;
Stream: TBlobStream;
begin
ibquery1.open;
Stream := TBlobStream.Create(ibquery1.FieldByName('messagebody')as Tblobfield, bmRead);
try
MemSize := Stream1.Size;
Inc(MemSize); {Make room for the buffer's null terminator.}
Buffer := AllocMem(MemSize); {Allocate the memory.}
try
Stream.Read(Buffer^, MemSize); {Read Notes field into buffer.}
Memo1.SetTextBuf(Buffer); {Display the buffer's contents.}
finally
FreeMem(Buffer, MemSize);
end;
finally
Stream.Free;
end;
end;
end.