Charger une image jpg

Question

Hello a tous.
Pourquoi si je fait ca quand le programme doit lançer l'immage ca me dit "Unknown picture file extension"
j'ai delphi 6 version anglaise lol.

procedure TForm1.recoitMSG(Sender: TComponent; const sFrom: String;
  strm: TStream);
var
MyFStream: TFileStream;
begin

if sFrom='image' then
  begin
  form1.ListBox1.Items.Add('ok');
    if FileExists('C:\ecran.jpg') then
    DeleteFile('C:\ecran.jpg');
     MyFStream := TFileStream.Create('C:\ecran.jpg',fmCreate);
     try
      MyFstream.CopyFrom(strm,strm.Size);
      Application.ProcessMessages;

        Finally
         MyFstream.free;
        end;
          form2.Image1.Picture.LoadFromFile('C:\ecran.jpg');;

        end;

     end;
et la ca fous le borde ca me dit le message de dessus aidez moi please. 
@+ norton

PhGORMAND · Answer

Philippe GORMAND

Parce que la classe TPicture ne reconnait pas le type JPEG.
Il faut passer par un intermédiaire TJPEG.
Vas voir sur mon site, il y a un exemple.

http://philippe.gormand.free.fr/

A+

Charger une image jpg

1 réponse

Votre réponse

Discussions similaires