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

Вниз

Перевод Jpg в Bmp   Найти похожие ветки 

← →
Spawn ©   (2003-07-17 07:08) [0]

Пробую сохранять Jpg-файлы в базе, но почему то ни чего не выходит. Вообще 0 реакции, хотя bmp-шки нормально сохраняются.

Вот код:

procedure TForm1.ActionChooseImageExecute(Sender: TObject);
var
Jpeg:TJPEGImage;
begin
if OpenDialogChooseCover.Execute then
begin
if (Pos(".jpg",OpenDialogChooseCover.FileName)<>0) or
(Pos(".jpeg",OpenDialogChooseCover.FileName)<>0) then
begin
try
Jpeg:=TJPEGImage.Create;
Jpeg.LoadFromFile(OpenDialogChooseCover.FileName);
(Sender as TImage).Picture.Assign(Jpeg);
finally
FreeAndNil(Jpeg);
end;
end
else
(Sender as TImage).Picture.BitMap.LoadFromFile(OpenDialogChooseCover.FileName);
(Components[(Sender as TImage).Tag] as TLabel).Visible:=False;

with DM.IBDataSet1 do
begin
Edit;
FieldByName("Picture").Assign((Sender as TImage).Picture.Bitmap);
end;
end;
end;

Что я тут пропустил? Заранее спасибо.

---

← →
MBo ©   (2003-07-17 07:15) [1]

создай TBitmap, и Assign ему Jpeg-картинку.

---

← →
Spawn ©   (2003-07-17 07:26) [2]

Ни чего не изменилось(

---

← →
MBo ©   (2003-07-17 07:28) [3]

просто битмап получается сохранить?

---

← →
Spawn ©   (2003-07-17 07:33) [4]

Да получается

---

← →
Spawn ©   (2003-07-17 07:36) [5]

Все сенк я нашел. Нужно было сделать так


(Sender as TImage).Picture. BitMap.Assign(Jpeg);


---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c