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;
解决方案 »
- 如何获得WebBrower中TextArea的值
- Cannot create a new transaction because capacity is exceeding.
- TPrinter的问题
- DBF文件用SQL命令导入SQL数据库,出现空日期要如何处理?
- 学渣求助
- delphi 调 c# 写的activex 控件 怎么调用啊
- 如何去掉Dbgrid所联数据表记录为空时显示的那一讨厌的空白行?
- 她曾是我的姐姐 续:她总说对我没感觉,怎么办???我总梦到她,而她却说自己不做梦???
- 怎样实现程序缩小为任务条右下角的小图标
- (特急,特刺激) 如何不显示开始菜单...
- 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;
/////////////////////////////////////
自己看着办 我没时间