procedure TForm7.FormShow(Sender: TObject);
icon:TIcon;
stream:TMemoryStream;
begin
icon:=TIcon.Create;
stream:=TMemoryStream; -----75
begin
TBlobField(form3.adoquery1.FieldByName('picture')).SaveToStream(stream); -----77
stream.Position:=0;
icon.LoadFromStream(stream);
image1.Picture.Assign(icon);
end;
end;出现的错误:[Error] friendinfo.pas(75): Incompatible types: 'TMemoryStream' and 'Class reference'
[Error] friendinfo.pas(77): Undeclared identifier: 'TBlobField'
[Error] friendinfo.pas(77): Missing operator or semicolon
[Fatal Error] AddressBook.dpr(11): Could not compile used unit 'friendinfo.pas'
icon:TIcon;
stream:TMemoryStream;
begin
icon:=TIcon.Create;
stream:=TMemoryStream; -----75
begin
TBlobField(form3.adoquery1.FieldByName('picture')).SaveToStream(stream); -----77
stream.Position:=0;
icon.LoadFromStream(stream);
image1.Picture.Assign(icon);
end;
end;出现的错误:[Error] friendinfo.pas(75): Incompatible types: 'TMemoryStream' and 'Class reference'
[Error] friendinfo.pas(77): Undeclared identifier: 'TBlobField'
[Error] friendinfo.pas(77): Missing operator or semicolon
[Fatal Error] AddressBook.dpr(11): Could not compile used unit 'friendinfo.pas'
解决方案 »
- Delphi MDI 打开窗口显示问题
- 请问下高手们下面几句delphi语句的含义
- 注册表启动项的问题
- 在线等,关于水晶报表输出为html格式
- 请教存储过程的嵌套问题
- 建立的MTS协调对象中的TDCOMConnection组件在与MTS数据对象连接时,报“不能在指定的事务处理器中获得新事务”
- 很简单问题--100分,大出血( 要写详细)! bow,thanks, up有分啊
- 一个关于listview的问题很简单,有分哦
- 急,(身体里内存太小),有哪位贤士知道如何改变显示器的明暗度或对比度
- 请问怎样判断当前是在中文输入法状态还是英文输入法状态,最好是原代码
- 请问如何安装ms的语音识辨引擎?
- 从一个数据表向另一个数据表写入数据
stream:=TMemoryStream.create;
stream:=TMemoryStream.create;