Übertragung von Bildern und Sound im LAN mit 2 Rechnern

[F.W.]

Oder anders: Wie kann ich rausfinden, welche Art von Daten (In diesem Fall String oder Stream) ankommt?

[F.W.]

Ich hab's jetzt mit zwei Servern/Client gemacht, über verschiedene Ports.

Das Componentenproblem ist auch behoben!

Danke für eure Hilfe!

[Nepos]

Hallo @ All,

ich bin neu hier... ich bin gerade dabei ein programm zu erstellen welches ein Bild über Sockets versendet.

Ich habe als erstes den Code von F.W. genommen...er meckert aber immer an der:

if IsServer then

stelle.

Hat jemand eine ahnung was ich falsch mache?
Oder habe ich eine einstellung nicht beachtet?

MFG Martin

[F.W.]

Hi! Und willkommen in der DP!

Ich habe seit diesem Beitrag nicht mehr mit Sockets gearbeitet! (Steigt auf Indy um, ist aktueller und einfach besser gemacht!)
>> Wenn du willst, schreibe ich dir den Code auf Indy um, oder geb dir da 'n Beispiel.

Das IsServer ist meine eigene Boolsche Variable, da bei mir die beiden Rechner, auf denen das Prog lief die selbe Exe hatten (es gab also kein Client im Clientprog auf Computer 1 und einen Server um Serverporg auf Computer 2), musste sich einer als Server betätigen, da ja eine Kommunikation zwischen Client und Client oder Server und Server nicht geht (glaub ich jedenfalls).

Also schau mal was du für die Verbindung brauchst und wie du Kommunikation zwischen deinen Programmen organisierst und lass das IsServer einfach weg!

Mehr kann ich dir leider nicht sagen, ist ja schon "ewig" her!
Wie gesagt/geschrieben, schreib dir gern nen Code für Indy!

Viel Glück noch!

[Nepos]

VIelen Dank F.H.!

wäre schön wenn du das machst!

Einfach nur ein kleines BSP mit indy, so das ich das verstehe (ich meine ohne schnick schnack)

vilen Dank im vorraus

Nepos

[F.W.]

Zum verschicken von Bildern (BMP ist das TBitmap, das zu verschicken ist, bzw. das Objekt, in das es beim Empfangen geschrieben werden soll):

Delphi-Quellcode:

//Im IdTCPClient musst du vorher festlegen:
 IdTCPClient.Host := 'EMPFÄNGER'; //IP-Addresse oder Computername (zumindest im lokalen Netzwerk)
 IdTCPClient.Port := 33333;
//Zum Senden (von irgendwo ausgelöst):
var
 St: TStream;
begin
 St := TMemoryStream.Create;
 try
   BMP.SaveToStream(St);
   St.Seek(0, soFromBeginning);

   IdTCPClient.Connect;
   try
     IdTCPClient.WriteStream(St, True, true); {  Wichtig! Der 3. Wert muss True sein, damit kommt am Server zuerst ein Integerwert an, in dem die Größe des Streams steht!  }
   finally
     IdTCPClient.Disconnect;
   end;
 finally
   St.Free;
 end;
end;

//Und zum Empfangen(folgender Quelltext kommt ins IdTCPServer OnExecute):
var
 I: Integer;
 St: TStream;
begin
 St := TMemoryStream.Create;
 try
   with AThread.Connection do begin
     I := ReadInteger;
     ReadStream(St, I);

     { Tu was mit dem Stream  Bsp: }
     St.Seek(0, soFromBeginning);
     BMP.LoadfromStream(St);
   end;
 finally
   St.Free;
 end;
end;

Wenn's Probleme gibt: Frag!

[CTV]

oops fallscher thread
sorry