| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Delphi vikidivat' tabli4ku --> "Bitmap image is not valid." [D7, Paradox]

KristinA ©   (2005-01-16 19:12:00) 

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...

---

sniknik   (2005-01-16 21:39:00) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1105891816&n=0
спам

---

KristinA   (2005-01-16 21:26:00) [2]

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 =(

---

Наверх