急：在使用opendialogue时报错invalid class typecast

hejurong300 2010-07-23 04:25:11

急：delphi 在使用opendialogue时报错invalid class typecast
procedure TForm1.Button1Click(Sender: TObject);
var
MemSize:Integer;
MyFile:TFileStream;
Stream:TBlobStream ;
// Sm: TMemoryStream;
Buffer:Pchar;
// f:TBlobField ;

begin
if OpenDialog1.Execute then begin

MyFile:=TFileStream.Create(OpenDialog1.FileName,fmopenwrite);
ADOTable1.open;
ADOTable1.Edit;
Stream:=TBlobStream.Create(TBlobField(ADOTable1.FindField('Image')),bmwrite);
MemSize:= MyFile.Size;
INc( MemSize);
Buffer:=AllocMem(MemSize);
MyFile.Read( Buffer^,MemSize) ;
Stream.Write(Buffer^,MemSize) ;
MyFile.Free;
Stream.Free;
ADOTable1.Post;
end;
end;

...全文

103 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

hejurong300 2010-07-25

打赏
举报

Stream:=TBlobStream.Create(TBlobField(ADOTable1.FindField('Image')),bmwrite);
在调用方式上好像不对

lovelymelon 2010-07-25

打赏
举报

改成这样



var

  stream:Tstream;

begin

  Stream:=TMemoryStream.Create;

  Stream:=ty.ADOQuery1.CreateBlobStream(ty.ADOQuery1.FieldByName('image'),bmread);



end;