Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.13;
Скачать: CL | DM;

Вниз

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

 
KristinA ©   (2005-01-16 19:12) [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:26) [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 =(


 
sniknik ©   (2005-01-16 21:39) [2]

http://delphimaster.net/view/1-1105891816/
спам



Страницы: 1 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-1106554532
Prohodil Mimo
2005-01-24 11:15
2005.02.13
Где достать инфу по работе с кассовыми аппаратами?


14-1104137933
Чеширский_Кот
2004-12-27 11:58
2005.02.13
Кто хочет сыграть против меня в шахматы?


1-1106839276
babayka
2005-01-27 18:21
2005.02.13
поиск и пермещение файлов каталоги


1-1107174788
DEM_s
2005-01-31 15:33
2005.02.13
Подскажите пожайлуста как засунуть avi в res файл?


1-1107027485
ShimON
2005-01-29 22:38
2005.02.13
Как достать объект из ListItem