unten ein kleiner Testcode zum hin und her kopieren von Bildern auf einem TImage in einen TMemoryStream.
Wenn ich in der Delphi IDE zwei *.bmp#s in das TImage lade spielt der Code, wenn ich *.jpg in das TImage lade klappt das ganze nicht mehr.

Warum, ich dachte es egal was die quelle /Image typ war ?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var aMemoryStream : TmemoryStream;
    BMemoryStream : TmemoryStream;
begin

    aMemoryStream := TmemoryStream.Create;

    aMemoryStream.Seek(0, soFromBeginning);

    image1.Picture.Graphic.SaveToStream(aMemoryStream);



    bMemoryStream := TmemoryStream.Create;

    bMemoryStream.Seek(0, soFromBeginning);

    image2.Picture.Graphic.SaveToStream(bMemoryStream);


    aMemoryStream.Position := 0;

    bMemoryStream.Position := 0;


    image2.Picture.Graphic.LoadFromStream(aMemoryStream);

    image1.Picture.Graphic.LoadFromStream(bMemoryStream);


    aMemoryStream.Free;


    bMemoryStream.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
var aMemoryStream : TmemoryStream;
    BMemoryStream : TmemoryStream;
begin

    aMemoryStream := TmemoryStream.Create;

    aMemoryStream.Seek(0, soFromBeginning);

    image1.Picture.Bitmap.SaveToStream(aMemoryStream);



    bMemoryStream := TmemoryStream.Create;

    bMemoryStream.Seek(0, soFromBeginning);

    image2.Picture.bitmap.SaveToStream(bMemoryStream);


    aMemoryStream.Position := 0;

    bMemoryStream.Position := 0;


    image2.Picture.bitmap.LoadFromStream(aMemoryStream);

    image1.Picture.bitmap.LoadFromStream(bMemoryStream);


    aMemoryStream.Free;


    bMemoryStream.Free;

end;

Aus einem Stream bekommt TGraphic das Dateiformat nicht raus.
TGraphic prüft ausschließlich auf Dateiendungen und bei einem Stream gibt es diese ja nicht.

Fazit: Du mußt selber für das Format sorgen,
also in Image.Picture.Graohic das richtige Grafikobjekt laden und dann dorthinein die Grafik.

Nur das Bitmap ist über Image.Picture.Bitmap direkt integriert.

z.B. so in der Art:

markieren

Delphi-Quellcode:

Image1.Picture.Graphic := TJpegImage.Create;
Image1.Picture.Graphic.LoadFromStream(...

PS: MemoryStream.Seek(0, soFromBeginning); ist übrigens das Selbe wie MemoryStream.Position := 0; und direkt nach dem Erstellen eines Streams steht das sowieso schon auf Position 0.

Danke , Frage beantwortet

als erweiterung/anwendung kann man in einer neuen demo http://sourceforge.net/projects/indy10clieservr/indy 10 tcp client server jetzt "badminton" via tcp spielen ....
die spielregeln darf sich jeder selbst ausdenken