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

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+

-------------------------------
Réponse au message :
-------------------------------

> 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
>
>