Hallo!
Ich versuche, zunächst eine einzelne Datei von a nach b zu schicken.
Dazu habe ich die Komponenten ServerSocket und ClientSocket verwendet (die man nach meiner Recherche wohl nicht mehr verwenden sollte...)
Ich habe bei der ClientSocket-Komponente unter Socket die Funktion SendStream gefunden, die ich dafür benutzen wollte.
Der Server sollte dann den Stream empfangen und die Datei irgendwohin speichern. Problem ist: Der ServerSocket hat gar keine Funktion ReceiveStream.
Das wundert mich, weil zu SendText und SendBuf gibt es die äquivalenten Funktionen ReceiveText und ReceiveBuf.
Kann mir jmd sagen, wie ich das realisieren kann?
Oder muss ich doch andere Steuerelemente wie IdTCPClient und IdTCPServer verwenden? Und falls ja, kann mir einer kurz erklären, wie das geht oder mir nen Link posten, wo das steht? Weil SendStream oder ReceiveStream hab ich da so auf Anhieb nicht gefunden..

Versenden:
(bringt keinen Fehler)

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
var
  ms:TMemoryStream;
  strFolder:string;
  strFileName:string;
begin
  strFolder:='H:\Src\';
  strFileName:='blub.doc';
  ms:=TMemoryStream.create;
  ms.LoadFromFile(strFolder+strFileName);
  ClientSocket1.Socket.SendStream(ms);
end;

Empfangen:
(bringt Windows-Socket-Fehler:
Eine bestehende Verbindung wurde softwaregesteuert durch den Hostcomputer abgebrochen (10053), bei API 'recv'

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  msg:string;
  ms:TMemoryStream;
  strFolder:string;
  strFileName:string;
  zeiger:Pointer;
  bufferlänge:integer;
begin
  strFolder:='H:\Ziel\';
  strFileName:='blub.doc';
  ms:=TMemoryStream.Create;
  bufferlänge:=socket.ReceiveLength;
  Socket.ReceiveBuf(zeiger^,bufferlänge);
  ms.Write(zeiger^,bufferlänge);
// ms.SaveToFile(strFolder+strFileName);
end;

Ich hatte auch schonmal dastehen
Socket.ReceiveBuf(ms,socket.ReceiveLength); da kam aber der gleiche Fehler.
Ich muss zugeben, dass ich zum einen keine Ahnung habe, was ich genau bei ReceivedBuf als 1. Parameter angeben soll, zum anderen weiß ich nicht, wie man den stream zerlegt, den nach und nach schickt und dann irgendwann damit aufhört. Ein _nützliches_ Tutorial habe ich dazu auch nicht gefunden, ich google die ganze Zeit rum, finde aber nur Beiträge von Leuten, die es auch nicht wissen und Anwtworten von Leuten , die nicht bereit sind, es mal zu erklären.

getmem(zeiger,bufferlänge);
hat gefehlt

noch eine Frage:
bei vielen Beiträgen von Leuten, die genau wie ich erst wenig Erfahrung haben, steht zu diesem Thema immer was von einem Protokoll.
Wozu dient ein solches Protokoll?
Um zu erkennen, wann der Stream vollständig übertragen wurde?
Das kann man doch auch daran erkennen, dass die Größe der übertragenen Daten kleiner als 8192B ist.
Oder um Problemen vorzubeugen, die evtl durch gleichzeitige Übertragung entstehen können?

So, ich benutze nun die indy-Komponenten dafür, da sie in der Tat besser geeignet sind. ^^
Dazu mal eine Frage:
Wenn die Server-Komponente am empfangen ist, ist sie blockiert, oder?
Ich habe eben mal 2 Clients je 10 Datenströme hinschicken lassen und von diesen insgesamt 20 Datenströmen hat er nur 4 erhalten.
Ich habe ja gehofft, er erstellt evtl von selber nen Thread, wenn nen Client sich connectet, damit ich mich nicht mit dem Thema auseinandersetzen muss, da Threads doch schon ein umfangreicheres Themengebiet sind. ^^
Wer mir bei dem Thread-Problem helfen kann, kann dies gern tun, ich weiß z.bsp. nicht, ob es reicht (und wie man es realisiert), dass er bei eingehenden Verbindungen einen neuen Thread aufmacht, oder ob die Server-Komponente evtl selbst in nem Thread sein muss etc.
Habe 2 Tutorials zum Thema Threads gelesen, aber nur Bahnhof verstanden.

Edit:
Ich frag mal gezielter:
Wenn sich ein Client zum Server connectet, wird doch sicherlich ein neuer Socket erzeugt, über den die Verbindung dann läuft (so ist es zumindest bei der TServerSocket-Komponente, kA wie's bei TidTCPServer ist)
Diesen Socket müsste ich meinem Thread ja auf jeden Fall übergeben.
Weiß einer, wie ich an den rankomme (damit ich ihn übergeben kann) und von welchem Typ der ist?