如題： 欲打開topenpicturedialog選定圖片後 指定放入tdbimage中,請教如何做? 「堅持」從洗馬桶做起 Aric 發表人 - huangeider 於 2003/09/10 17:20:10

假設選的是 bmp 圖

if OpenDialog1.Execute then
  DBImage1.Picuture.LoadFromFile(OpenDialog1.FileName);

如果是 jpg, 得經過一點處理

uses
  Jpeg;    var
  jpg: TJpegImage;
begin
  if OpenDialgo1.Execute then begin
    if ExtractFileExt(OpenDialog1.FileName) = 'jpg' then begin
      jpg := TJpegImage.Create;
      try
        jpg.LoadFromFile(OpenDialog1.FileName);
        DBImage1.Picture.Assign(jpg);
      finally
        jpg.Free;
      end;
    end;
  end;
end;

--- 歡迎光臨 KTop 研究院--<-<-<@

引言: 小弟我加入了 uses jpeg 後用下面這方法就可以用jpg了 if OpenDialog1.Execute then DBImage1.Picuture.LoadFromFile(OpenDialog1.FileName); 反倒是下面方法show不出來不知錯在那 我是用delphi7.0 var jpg: TJpegImage; begin if OpenDialgo1.Execute then begin if ExtractFileExt(OpenDialog1.FileName) = 'jpg' then begin jpg := TJpegImage.Create; try jpg.LoadFromFile(OpenDialog1.FileName); DBImage1.Picture.Assign(jpg); finally jpg.Free; end; end; end; end;

「堅持」從洗馬桶做起 Aric

Sorry!  這行 if ExtractFileExt(OpenDialog1.FileName) = 'jpg' then begin 改成 if ExtractFileExt(OpenDialog1.FileName) = '.jpg' then begin // 要加一點    --- 歡迎光臨 KTop 研究院--<-<-<@

引言: 感謝

「堅持」從洗馬桶做起 Aric