Încărcați fotografii în format JPG în componenta de imagine.
Cum se încarcă programatic Imagine Imagine componentă JPG.
Fa-o echipa
Image1.Picture.LoadFromFile ( "c: \ photo.jpg");
Un mesaj de eroare
'Extensie de fișier imagine Unknkown (.jpg)'
Și dacă descărcați fișierul bmp software-ul, atunci totul este în regulă.
Vă mulțumesc anticipat, Serghei.
Inclus în modulul standard, utilizează JPEG
Procedura TfmMain.FormCreate (Expeditor: TObject);
var
bmp: TBitmap;
jpg: TJPEGImage;
începe
în cazul în care nu OpenPictureDialog1.Execute atunci Exit;
jpg: = TJPEGImage.Create;
bmp: = TBitmap.Create;
jpg.LoadFromFile (OpenPictureDialog1.FileName);
bmp.Assign (jpg);
Image1.Picture.Assign (bmp);
jpg.Free;
bmp.Free;
se încheie;
Se răcește, dar cred că
Image1.Picture.LoadFromFile ( "c: \ photo.jpg");
mult mai ușor
Nu, nu un smochin, pentru că nu se rostogolească chiar și atunci când JPEG „e
astfel încât ceea ce spui, dar cumva totul funcționează
Există o masă de bug-uri. Opțiunea de BOA_KAA într-adevăr mai bine decât doar LOadFrom. dar locul jpg.LoadFromFile ar trebui să conducă pentru a încerca, cu excepția deja cu privire la rezultatele pentru a decide dacă este sau nu citesc Imagen.
Faptul este că, atunci când descărcarea de fișiere JPG.LoadFromFile dă erori pentru anumite motive, sa (nu este o coincidență versiuni necunoscute tag-ul, integritatea rupt a fișierului.), Dar încă fișiere NAVEI.
Deci, izolate erori și locul de muncă.
În mod similar, eu pur și simplu nu a adăugat cazul la codul. Acesta va fi oarecum corect, în caz afirmativ:
Procedura TfmMain.FormCreate (Expeditor: TObject);
var
bmp: TBitmap;
jpg: TJPEGImage;
începe
în cazul în care nu OpenPictureDialog1.Execute atunci Exit;
încerca
jpg: = TJPEGImage.Create;
bmp: = TBitmap.Create;
jpg.LoadFromFile (OpenPictureDialog1.FileName);
bmp.Assign (jpg);
Image1.Picture.Assign (bmp);
în cele din urmă
jpg.Free;
bmp.Free;
se încheie;
se încheie;
Nu. Așa că nu toate poylut fișiere. Am făcut ceva de genul asta:
var
bmp: TBitmap;
jpg: TJPEGImage;
începe
în cazul în care nu OpenPictureDialog1.Execute atunci Exit;
încerca
jpg: = TJPEGImage.Create;
bmp: = TBitmap.Create;
încerca
jpg.LoadFromFile (OpenPictureDialog1.FileName);
cu excepția
// Și ce pentru noi greșelile lui?
se încheie;
bmp.Assign (jpg);
Image1.Picture.Assign (bmp);
cu excepția
// Și aici este ceva care nu este, fișierul nu este citit, este necesar să se tragă concluzii
se încheie;
jpg.Free;
bmp.Free;
Da, dar în cazul tău, atunci când apare o eroare în etapa
JPG.LoadFromFile
în imagine nu boot-eze, deoarece de control se duce imediat la blocul în cele din urmă