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 :D kein bock :D

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

Delphi-Quellcode:

Image1.Picture.LoadFromFile

schreibst du, wie ich oben schon bei "Aufruf" geschrieben habe,

Delphi-Quellcode:

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

Gruß,
ManuMF

[Khabarakh]

Zitat:

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

Delphi-Quellcode:

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 :stupid: .

[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. :D

gruss