Image als Stream versenden

[hibbert]

Hi,
ich habe auf meinem Formbaltt ein Image. Dieses Image wird regelmäßig aktualisiert.

Nun möchte ich aber gerne, das dieses Bild als "Livestram" an einen Clienten verschickt wird.

Muss ich dazu erst das Image auf Festplatte speichern und dann als Datei verschicken und vom Clienten neu laden lassen ?

Oder kann ich das ganze auch machen, ohne das Bild abzuspeichern ?

ich bin erstmal für jede Hilfe dankbar.

thx hibbert

[storm1988]

Zerbs

Um ein Image als Stream zu versenden musst du so vorgehn:

Delphi-Quellcode:

FStream := TFileStream.Create( pfad, fmCreate );
Image1.Picture.Bitmap.SaveToStream;

Und um es wieder als Image zu speichern:

Image1.Picture.Bitmap.LoadFromStream(FStream) Mfg st0rm

[hibbert]

Hi,
also ich habe da mal gleich was ausprobiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var fStream: tfilestream;
begin
FStream := TFileStream.Create(extractfilepath(application.exename)+'test.jpg', fmCreate );
image1.Picture.Bitmap.SaveToStream(FStream);
fstream.Free;
end;

Mit meinem Quelltext wird einfach nur ein Bild namens test.jpg im Programmverzeichnis angelegt.

Wie kann ich dieses Bild nun auf einem anderen PC (zb. im Netzwerk) anzeigen ?

thx hibbert

[tigerman33]

Dazu musst du dich wohl noch ein bisschen mit Netzwerk-Programmieren beschäftigen. Da kenn ich mich aber leider nicht aus.

Aber was anderes: Wenn du nicht erst auf der Festplatte speichern willst, kannst du anstelle eines FileStreams das Bild auch in einem MemoryStream speichern und dann direkt das durchs Netz jagen

[storm1988]

Moin

Um den FileStream an einem anderen Computer im Neztwerk oder auch im Internet zu versenden würd ich die Indy 10 Komponente IdTCP verwenden.

Dazu gibts schon einige Threads zum versenden von Streams: Link

Mfg st0rm

[ManuMF]

Hallo,

sieh dir erst ein mal diesen Code an.

Dann kannst du im Sender folgendes ersetzen:

Delphi-Quellcode:

var FStream : TMemoryStream;

  FStream := TMemoryStream.Create;
  Bild.Picture.Bitmap.SaveToStream(FStream);
  IDS := TidStreamVCL.Create(FStream);

Und im Empfänger das:

Delphi-Quellcode:

var FSTream : TMemoryStream;

  FStream := TMemoryStream.Create;
  IDS := TidStreamVCL.Create(FStream);

  Bild.Picture.Bitmap.LoadFromStream(FStream);

  FStream.Free;
  IDS.Free;
end;

Die Datei-Open-/Save-Dialoge fallen dann natürlich weg.
Diese Lösung müsste aufs Erste funktionieren.

Wenn nicht, dann nimm doch FileStreams, wie im Beispiel, aber natürlich gespeichert von der Grafik (LoadFromStream...).

Gruß,
ManuMF

[hibbert]

hi,
ich habe zwar kein indy10 habe es aber mit den indy 9 hinbekommen, ist ja nicht ganz anders

vielen dank.

nun habe ich noch eine letzte Frage:

kann ich IdTcpClient und IdTcpServer auf ein Formblatt packen und beie auf active = true stellen ? Beide Kompos laufen über den gleichen port, nur der Client hat einen anderen Rechner als Host.

Geht das gut, oder eher nicht ? Denn ich möchte ja geren zwischen 2 PC Dateien austauschen, undzwar gleichzeitig.

thx hibbert

[ManuMF]

Einfach mal ausprobieren

(Zumindest bei Indy 10) Hat nur der Server die Eigenschaft Active. Theoretisch dürfe es aber kein Problem sein, nur wenn man zwei Clients oder zwei Server auf einer Form hat, könnte es Probleme geben.

[hibbert]

ok ich habs ausprobiert und es geht, naja ich muss noch dran arbeiten

danke !!

[storm1988]

Mhhh, für was willst du überhaupt einen Server und einen Client gleichzeitig in einem Prozess packen??? Denn das versenden von Streams funst eh in beide Richtungen.

Mfg