Witam!
Męczę się od dłuższego czasu z jednym kodem. Ładuję JPG do Image i wycinam potem kawałek jego do drugiego Image wrzucając. Niestety to na JPG nie chce działać bo musi być przekonwertowany na BMP. Obrazki wyświetlam z Filelistbox klikając na Itemy nazwa pliku pokazuje się w Edit5. W Edit3 pokazuje się ścieżka do pliku.
Mam taki kodzik:
procedure TForm1.Button10Click(Sender: TObject);
var
Bitmap : TBitmap;
JPG : TJPEGImage;
begin
try
JPG := TJPEGImage.Create;
JPG.LoadFromFile(Edit3.Text+'\'+edit5.Text);
Bitmap := TBitmap.Create;
Bitmap.Assign(JPG);
Bitmap.SaveToFile('Stara_nazwa_obrazkaJPG.bmp');
Image2.Picture.LoadFromFile('Stara_nazwa_obrazkaJPG.bmp');
finally
Bitmap.Free;
JPG.Free;
end; end;
I teraz gdzie jest
Bitmap.SaveToFile('Stara_nazwa_obrazkaJPG.bmp');
Image2.Picture.LoadFromFile('Stara_nazwa_obrazkaJPG.bmp');
powinna być nazwa pliku odczytanego wcześniej (JPG), ale już z rozszerzeniem BMP. Ten kod jest mi niezmiernie potrzebny ponieważ 70% programu to własnie to :) Jak mogę to poprawić aby było dobrze już?
2 pytanie:
Jak mogę poszarzyć obrazek wczytany do Image?
Czy ma ktoś jakieś procedury, które wykonują obojętnie jaki efekt na Image1? Np. właśnie te poszarzenie. Dzięki i pozdrawiam!