Load from file

[f4r]

Hi Leute,

was ist an dem quellcode falsch ?

Delphi-Quellcode:

procedure TSchuleForm.ListBox1Click(Sender: TObject);
begin

if Listbox1.ItemIndex=0 then
   begin
    Image1.Picture.LoadFromFile('C:\Documents and Settings\Admin\Desktop\schule\pics\schulphotos\hauptein.jpeg');
   end;

end;

jpeg in uses eingefügt !
quelle 100 % richtig !

wurde auch geprobt mit

Delphi-Quellcode:

procedure TSchuleForm.ListBox1Click(Sender: TObject);
begin

if Listbox1.ItemIndex=0 then
   begin
    Image1.Picture[b].bitmap[/b].LoadFromFile('C:\Documents and Settings\Admin\Desktop\schule\pics\schulphotos\hauptein.jpeg');
   end;

end;

kann jemand mir helfen

habe aus der jpeg datei auch scho ne bmp datei gemacht um zu prüfen obs darin liegt !
--> Resultat das gleich bild als BMP lädt er einwandrei !

hoffe das ihr mir helfen koennt sonst muss ich alle bilder unkonvertieren kein bock

gruss
f4r

[edit=Christian Seehase]Delphi-Tags eingefügt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[ManuMF]

Hallo,

benutze doch bitte die [ Delphi ] - Tags.

Gruß,
ManuMF

[Edit]Sorry, hab Code-Mist geschrieben [/edit]

[f4r]

ich versteh net was das nun ist kannst du bitte deinen code kommentieren ich bin blutiger anfängr !

gruss

[ManuMF]

Sorry, war Unsinn. Ich poste gleich richtigen Code.

Gruß,
ManuMF

[ManuMF]

So, jetzt hab ichs:

Delphi-Quellcode:

uses JPEG;

procedure JpegToBMP(JpegFileName: string; const OutBitmap : TBitmap);
  var JPG: TJPEGImage;
begin
  JPG := TJPEGImage.Create;
  try
    JPG.LoadFromFile(JpegFileName);
    OutBitmap.Assign(JPG);
  finally
    JPG.free;
  end;
end;

// Aufruf:
JpegToBMP('Dateiname', Image1.Picture.Bitmap);

Gruß
ManuMF

[f4r]

kannst du mir bitte trotzdem erklären was du da genau machst ?
und wie krich das dann in die eigentliche onclick procedure der listbox ?

gruss

[ManuMF]

Ein TImage kann kein JPEG laden. Also muss ein JPEG vorher in ein Bitmap umgewandelt werden. Das macht meine Prozedur. Statt
Image1.Picture.LoadFromFile schreibst du, wie ich oben schon bei "Aufruf" geschrieben habe,
JpegToBMP('Der Name der JPG-Datei, die geladen werden soll', Image1.Picture.Bitmap); Gruß,
ManuMF

[Khabarakh]

Zitat von ManuMF:

Ein TImage kann kein JPEG laden.

Seit wann das? TJPEGImage trägt sich in die Graphics.FileFormats-Liste ein, also lässt sich ein JPEG durch
TImage.Picture.LoadFromFile('moep.jpg'); laden, wenn die Unit JPEG eingebunden ist.

Vielleicht sollte uns f4r erst einmal verraten, was für ein Fehler überhaupt erzeugt wurde .

[f4r]

Delphi-Quellcode:

procedure JpegToBMP(JpegFileName: string; const OutBitmap : TBitmap);
  var JPG: TJPEGImage;
begin
  JPG := TJPEGImage.Create;
  try
    JPG.LoadFromFile(JpegFileName);
    OutBitmap.Assign(JPG);
  finally
    JPG.free;
  end;
end;

mit dem teil wird dann geprüft ob die datei sich am ort befindet oder wie ?

Delphi-Quellcode:

JpegToBMP('Der Name der JPG-Datei, die geladen werden soll', Image1.Picture.Bitmap);

hier mit wird dann das kpeg umgewandelt und als bmp ins image ? ? ?

wie krich ich das ganze jetzt in mein listbox procedure

gruss

[f4r]

@
Khabarakh

wenn du den thread von anfang richtig gelsesn haettest wüsstest das ich genau das ausprobiert habe !
ich meine zwar es scho geschafft zu haben ne jpeg datei zu laden aber wenns so geht solls mir recht sein ! ! !

er sagt das kein die datei an diesem ort nicht finden kann ! ABER SIE IST DA UND DIE SOURCE 100 % richtig ! ! !

naja ich wart jetzt mal ab wie man das in die klick procedure einfügt und hoffs das es funkz.

gruss