use jpeg; procedure TForm1.DBImage1DblClick(Sender: TObject); var filepath,extname:string ; jpeg:Tjpegimage;begin query1.RequestLive:=true; if openpicturedialog1.Execute then begin filepath:=openpicturedialog1.FileName; if filepath<>'' then extname:=extractfileext(filepath); if (uppercase(extname)='.JPEG') or (uppercase(extname)='.JPG') then begin query1.Edit; jpeg:=Tjpegimage.Create; jpeg.LoadFromFile(filepath); dbimage1.Picture.Graphic.Assign(jpeg); end else begin query1.edit; query1graphic.LoadFromFile(filepath); end; query1.Post; end; end; ============解决不能插入jpeg图片的问题========
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.gif');
我完整的调试过,
你可以搜索一下以前的帖子,我就不贴了,
该类型的帖子比较多
procedure TForm1.DBImage1DblClick(Sender: TObject);
var filepath,extname:string ;
jpeg:Tjpegimage;begin
query1.RequestLive:=true;
if openpicturedialog1.Execute then
begin
filepath:=openpicturedialog1.FileName;
if filepath<>'' then
extname:=extractfileext(filepath);
if (uppercase(extname)='.JPEG') or (uppercase(extname)='.JPG') then
begin
query1.Edit;
jpeg:=Tjpegimage.Create;
jpeg.LoadFromFile(filepath);
dbimage1.Picture.Graphic.Assign(jpeg);
end
else
begin
query1.edit;
query1graphic.LoadFromFile(filepath);
end;
query1.Post;
end;
end;
============解决不能插入jpeg图片的问题========