if FileExists(ExtractFileDir(Application.ExeName) + 'Reqimg'+txJUMIN_NO.Caption+'.BMP') then
HRImage1.Picture.Bitmap.LoadFromFile(ExtractFileDir(Application.ExeName)+'Reqimg' +txJUMIN_NO.Caption+'.BMP');
.bmp는 보여지는데.. if FileExists(ExtractFileDir(Application.ExeName) + 'Reqimg'+txJUMIN_NO.Caption+'.BMP') then HRImage1.Picture.Bitmap.LoadFromFile(ExtractFileDir(Application.ExeName)+'Reqimg' +txJUMIN_NO.Caption+'.BMP'...
양영필
•
2003.05.16 18:52
procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage;
begin
&...
김동욱
•
2003.05.16 19:12
감사합니다.
KDDG_ZZOM
•
2003.05.16 04:11
unit test;
interface
uses
여기에 jpeg를 추가해보세요...
즐프하세요...
procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage;
begin
jpg := TJPEGImage.Create;
try
jpg.LoadFromFile( 'J:Picture받은 그림WOMAN 02.jpg' );
Image1.Picture.Bitmap.Assign( jpg );
finally
jpg.Free;
end;
end;
TJPEGImage 란게 있습니다.
이것 자체가 TGraphic 형이던가? -_-a
암튼 그 형이기 때문에 Bitmap.assign으로 해서 bitmap에
이미지 데이터를 넣어버리면 됩니다.