Project Project1.exe raised exception class EJPEG with message 'JPEG error #53'
O co chodzi z tym errorem? wczytalem obrazek, odwrocilem go w pionie i poziomie a potem zapisalem i jak chce go teraz otworzyc to ten error mi wyskakuje.. Prosze o pomoc :(
wlasnie z zapisem tez jest dziwnie, kombinowalem na wszystkie sposoby jak zapisac plik i nie dziala jak powinno :/
procedure TForm1.Zapisz1Click(Sender: TObject);
begin
Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
procedure TForm1.Zapiszjako1Click(Sender: TObject);
begin
if SavePictureDialog1.Execute then Image1.Picture.SaveToFile(OpenPictureDialog1.FileName)
end;
kazdy plik ktory edytowalem w moim programie nie zapisuje sie poprawnie, temu nie mozna go otworzyc, ale czemu? To ja nie wiem :/
sluchaj... nie mozesz o wszystko pytac na forum. podstaw musisz nauczyc sie sam.
nie jestes pierwszy ktory sie uczy, przed Toba bylo na tej planecie pare milionow osob ktore uczylo sie delphi i napotykalo te sam problemy, wiec latwo sie domyslec ze 90% z nich jest juz gdzies w interneci, wiec... szukaj!
o zapisywaniu plikow jako jpegi masz chyba nawet w faq.
Robie juz moj projekt lacznie 9h (od wczoraj) znajac malutkie podstawy. Dzieki temu forum juz praktycznie skonczylem wszystko (jestem wam wdzieczny za to), zostal mi ten cholerny zapis, przy ktorym spedzilem najwiecej czasu.
Akurat co do tego to ciezko jest znalezc w internecie jak to zrobic.
To juz bedzie ostatnie pytanie, wiem - robie sie upierdliwy, natretny, zly itp :P
Co do faq, jakis czas temu znalazlem dosyc ciekawy sposob na zapis pliku, ale procedura ta najpierw pobiera plik z OpenDialog, potem kompresuje plik i go zapisuje w bmp i jpg (do wyboru). Tu pytanie, w jaki sposob mozna ja przerobic zeby pobierala obrazek z Image1.Picture i zapisywala go poprawnie? Ciagle puste pliki mi powstaja :/
Tu jest kod tej procedury:
procedure TForm1.Zapiszjako1Click(Sender: TObject);
var
Bitmap : TBitmap;
JPG : TJPEGImage;
begin
Bitmap := TBitmap.Create;
try
{ w przypadku, gdy użytkownik wybierze w oknie plik BMP }
if OpenDialog1.Execute then
begin
{ załaduj do klasy }
Bitmap.LoadFromFile(OpenDialog1.FileName);
{ miniaturkę wyświetl również w komponencie TImage }
Image1.Picture.Bitmap.Assign(Bitmap);
{ utwórz klasę }
JPG := TJPEGImage.Create;
try
{ przypisz obrazek z klasy TBitmap }
JPG.Assign(Bitmap);
if SaveDialog1.Execute then
{ zapisanie już skompresowanego obrazka }
JPG.SaveToFile(SaveDialog1.FileName);
finally
JPG.Free;
end;
end;
finally
Bitmap.Free;
end;
end;