var
pic: TMemoryStream;
pjpg: tjpegimage;
wl: string;
begin
Img.Visible := true;
Img.Update;
pjpg := TJpegImage.Create;
pic := TMemoryStream.Create;
TBlobField(DM.OQ1.FieldByName('content')).SaveToFile('c:\123.jpg');
if pic.Size <= 0 then
begin
Img.Visible := false;
Img.Update;
exit;
end;
pjpg.LoadFromFile('c:\123.jpg');
Img.Picture.Assign(pjpg);
Img.Update;
pic: TMemoryStream;
pjpg: tjpegimage;
wl: string;
begin
Img.Visible := true;
Img.Update;
pjpg := TJpegImage.Create;
pic := TMemoryStream.Create;
TBlobField(DM.OQ1.FieldByName('content')).SaveToFile('c:\123.jpg');
if pic.Size <= 0 then
begin
Img.Visible := false;
Img.Update;
exit;
end;
pjpg.LoadFromFile('c:\123.jpg');
Img.Picture.Assign(pjpg);
Img.Update;
解决方案 »
- 如何强制结束一个事件的后续处理
- 导出EXCEL包含图片关于按顺序导出的问题,请高手们指点。
- 无法调用oracle包函数,提示参数错误,请指教!!!
- 请大家看看我的代码有问题吗?
- 维护时控件的版本冲突问题,不知道开发时控件版本,编译出错怎么办?
- 客户端调用函数从中间层返回数据集时,有些连接组件无法返回?
- 如何在获得ADOQuery中的结果如何返回到memo?
- 请教:Button1.click与Button1click(Sender)的区别
- 我该如何办?有个美国女孩爱上我了!
- 请问如何将下载的控件加到delphi的控件面板上?先谢谢了!!!
- 100元有那位朋友能做这个系统登陆功能模块
- 请高手帮帮忙!这样的流程如何设计呢?
str:string;
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('delete from ip');
execsql;
end;
str:='insert into IP(IP) values(:xiao)';
with adoquery1 do
begin
close;
sql.Clear;
sql.Add(str);
Parameters.parambyname('xiao').Assign(Image1.picture.bitmap);
execsql;
end;
/////////////////////////////////////
自己看着办 我没时间