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:

Delphi-Quellcode:

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

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

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

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

[hibbert]

Ich möchte Bilder zwischen 2 PCs austauschen, und das Quasi als Livestream. Und wie ich das bis jetzt gesehen habe, kann nur der Client die Bilder versendnen und der Server empfangen.

Wenn das ganze auch umgekehrt geht und auch gleichzeitig in dichter Abfolge waäre das natürlich auch gut :wink:

hibbert

[Mr_G]

Schau dir doch einfach mal die Indy-Demo mit dem Chat an. Dort empfängt der Client und sendet der Server auch. Das Prinzip brauchst du dann nur noch auf deine Streams zu übertragen.
Was mich darüber hinaus interessieren würde wäre wie viele Bilder du eigentlich versenden willst...

[hibbert]

naja,
ich greife das Bild meiner Webcam bzw. videocam ab, speicher das al jpeg und will das übers inet versenden.

und da möchte ich gerne sowas wie ein livestream draus machen.

Besser wäre natürlich ein Server der das Bild local spiechert und die Clienten holen sich immer das Bild.
ZZt ist das so das ich das Bild versende.

hibbert

[Mr_G]

Das hört sich einfacher an als es meiner Meinung nach ist...
Vielleicht solltest du dir mal diese Sachen ansehen:
http://forum.dsdt.info/...
Fernwartung
Hat zwar nichts mit Webcams zu tun aber wenn du mich fragst kommts aufs gleiche raus... Such dir dort doch einfach mal ein paar Anregungen um deinen Livestream zu realisieren.