Hi,
hat jemand ein gutes Beispiel, wie ich per
Indy TCPServer ein Bitmap oder besser noch einen Stream an alle aktuell verbundenen Clients senden kann?
Ich finde zwar viele Beispiele, wie ich das vom Client an den Server sende, aber ich habe bisher noch nicht viel in die andere Richtung gefunden.
Der Client soll dabei nicht das letzte Bild abfragen, sondern solange er verbunden ist einfach unaufgefordert empfangen.
Oder sollte ich das anders herum machen, dass der Client alle x Sekunden ein evtl. vorhandenes neues Bitmap abfragt? Ich habe mich bei meinem Programm (
https://www.hastasoft.de/pcnetwork/index.html) letztlich für die zweite Lösung entschieden (also Abfrage in einem vom User angebbaren Zeitraum), da oft nicht eine Rückverbindung vom Server zum Client gegeben ist, z.B. wenn die Verbindung über das Internet geht und der Client hinter einem Router sitzt, dann ist die Organisation schon etwas komplexer, dass der Stream dann auch an den richtigen Rechner innerhalb des Netzwerkes geht (kann man machen, indem man eine Port-Weiterleitung im Router an den konkret angegebenen Netzwerk-Rechner einrichtet, aber das einem IT- unerfahrenen Anwender zu erklären, ist nicht ganz so einfach).
Der Client fragt halt in einem Extra-Thread im festgelegtem Abstand ab, ob es ein aktualisiertes Bild gibt, wenn ja, liefert der Server das direkt mit und der Thread aktualisiert dann die Anzeige (natürlich innerhalb eines Synchronize-Aufrufs).
Auf dem Server innerhalb des Execute Events des
Indy TCP Servers mache ich das dann einfach so (hier mal nur den Fall, dass der ganze Bildschirm übertragen werden soll, später übertrage ich nur sich zwischenzeitlich ergebene Änderungen):
Delphi-Quellcode:
{$Region 'Ganzen Bildschirminhalt übertragen'}
if pos ('getpic', sMsg) <> 0 then begin
MyStream := TmemoryStream.Create;
Try
GetAPic (MyStream);
MyStream.position := 0;
SetKryptedStream (MyStream); // Image verschlüsseln, Stream steht danach bereits Position Zero
AThread.Connection.IOHandler.WriteLn(myStream.Size.ToString);
AThread.Connection.IOHandler.WriteBufferOpen;
AThread.Connection.IOHandler.Write(myStream);
AThread.Connection.IOHandler.WriteBufferClose;
finally
FreeAndNil(MyStream);
end;
EXIT;
end;
{$Endregion}
Es wird also ein Stream erzeugt, das Bild geholt und in den Stream gespeichert. Dann wird zunächst die Größe des Streams (auch zur Kontrolle übermittelt) und dann der Stream selber gesendet.