Delphi vikidivat tabli4ku "Bitmap image is not valid."

← →
KristinA © (2005-01-16 19:10) [0]

Mastera, pomogite pozhalujsta.
Takaja problemka polu4ilas". Sdelala programku, kotoraja otkrivaet kartinku i sohranjaet ejo v bazu dannih, no ona po4emuto na4ala vikidivat" tabli4ku "Bitmap image is not valid." Mozhet kto znaet v 4em mozhet bit" pri4ina, stol" vrednogo povidenija programki. Esli mozhite pomogite pozhalujsta.

← →
KristinA © (2005-01-16 21:25) [1]

Mozhet kto uvidet oshibku v kode:

procedure TfEdit.ButLoadClick(Sender: TObject);
var
bmph,bmpw, dif:integer;
JPEG: TJPEGImage;
Bitmap: TBitmap;
begin
JPEG := TJPEGImage.Create;
Bitmap := TBitmap.Create;
try
begin
JPEG.LoadFromFile(OpenPictureDialog.FileName);
Bitmap.Assign(JPEG);
// opredeljaet proporcii bitmap, i umen"shaet DBimage1 okono sohranjaja proporcii
bmph:= Bitmap.Height;
bmpw:= Bitmap.Width;
if bmph>bmpw then
begin
dif:=bmph div 125;
DBImage1.height:=bmph div dif;
DBImage1.width:=bmpw div dif;
end;
if bmph<bmpw then
begin
dif:=bmpw div 125;
DBImage1.height:=bmph div dif;
DBImage1.width:=bmpw div dif;
end;
//

DBImage1.Picture.Assign(Bitmap);
DMFriends.tFriendsPhoto.Assign(DBImage1.Picture);
end;
except
begin
DMFriends.tFriendsPhoto.LoadFromFile(OpenPictureDialog.FileName);
end;
Bitmap.Free;
JPEG.Free;
end;
end;

Dlinnij kod odnako, no ja dejstvitel"no bol"she neznaju 4to delat", neponimaju po4emu programka vikidivaet oshibku.
Pozhalujsta pomogite =(

← →
Kerk © (2005-01-16 21:29) [2]

может стоит вместо
DBImage1.Picture.Assign(Bitmap); сделать StretchDraw?

http://delphimaster.net/view/3-1105891955/
спам

Delphi vikidivat tabli4ku "Bitmap image is not valid." Найти похожие ветки