OpenPictureDialog1.Execute;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Graphic1 := TImage.Create(self);
Graphic1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
table1.FieldByName('photo').Assign(Graphic1.Picture);
Graphic1.Free;
table1.Post;
按照关键字查找的时候,只能看到bmp的,不能看到其他类型的图象?
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Graphic1 := TImage.Create(self);
Graphic1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
table1.FieldByName('photo').Assign(Graphic1.Picture);
Graphic1.Free;
table1.Post;
按照关键字查找的时候,只能看到bmp的,不能看到其他类型的图象?
解决方案 »
- Delphi7,如何编写出能够实时监测机器故障
- 还有业余做程序的吗?
- 急,在线等!!!将导出Excel写在自定义的Thread中出现问题, CoInitialize尚未被呼叫
- 我想改变一下TCOMBOboX的ONcloseup事件,怎么办呢?
- 我想问问谁用过竞开协同之星?我想仿照它做个协作区,要是哪位高手会的话 100分送上
- 请老鸟赐教,有关skinEngine问题,急!!!
- 我能在DELPHI 程序中 拦截 不是指向本程序窗体 WINDOWS消息吗?
- 如何判断若干时间无键盘和鼠标输入响应?
- array[0..0] of TPaletteEntry 这样定义是什么意思?
- 100分,请问在WebBrowser相关问题?
- 《仅有爱情是不够的》 ---- 看的我个大男人也想流眼泪
- 各位Delphi程序员 你们的年薪是多少啊
procedure TForm1.Button1Click(Sender: TObject);
var
bmTemp:TJpegImage;
ms:TMemoryStream;
begin
bmTemp:=TJpegImage.Create;
ms:=TMemoryStream.Create;
bmTemp.LoadFromFile('c:\dd.jpg');
bmTemp.SaveToStream(ms);
Query1.Close;
//Query1.Params. ParamByName('Z_XP').LoadFromFile('c:\dd.jpg',ftBlob);
Query1.Params.ParamByName('Z_XP').LoadFromStream(ms,ftBlob); Query1.ExecSQL; ms.Free;
bmTemp.Free;
end;Query1中是UPdate语句