Socket.ReceiveText

[S - tefano]

Hi,

seit langer, langer Zeit bastel ich hin und wieder mal an einem Chat-Programm, dass der Fertigstellung mittlerweile sehr nah ist.
Eins der geplanten Features war es, neben Strings (also Texten für den Chat) auch Dateien zu verschicken.
Im OnRead- Ereignis des jeweiligen Sockets (benutze TClient- und TServerSocket) hole ich mir den String immer mit ReceiveText aus dem Socket, und prüfe dann anhand der ersten Zeichen im String ob er für mich bestimmt ist.
Wenn ich jetzt allerdings einen FileStream verschicke (siehe Beispiel auf SwissDC), befindet sich in der Verbindung ja kein String mehr, wenn OnRead ausgelöst wird.

Kurz zur Funktionsweise: Ich verschicke nicht einfach die Nachrichtentexte, sondern hänge da noch ein paar Sachen davor, davon sind die ersten beiden (durch Trennzeichen abgetrennt) zum einen quasi meine "Plakette" (ein konstant definierter String, von dem zu erwarten ist dass er von keinem anderen Programm an mich geschickt wird) und danach ein Bezeichner für den Typ der Nachricht. Beispielsweise ob jemand online kommt und sich anmeldet (dann steht da "ON"), wenn jemand offline geht ("OFF"), oder obs ne Nachricht für den Chat ist ("MSG").

Eigentlich wollte ich das einfach so machen, dass wenn ich weder Plakette, noch Typ der Nachricht erkenne, einfach auf gut Glück die Daten in einen FileStream schreibe und den dann unter einem gewünschten Dateinamen abspeichere.
Jetzt frage ich mich allerdings, ob das überhaupt ohne Exception funktionieren kann. Denn ich bin mir nicht ganz darüber im klaren, was Socket.ReceiveText mir am Anfang der Prozedur liefert, wenn der Socket einen FileStream empfängt und keinen String. Gibts dann irgendeinen SocketError, liefert die Funktion mir den Stream als String (also Steuerzeichen etc.), liefert die Funktion einen leeren String, und: Ist der empfangene FileStream nach ReceiveText überhaupt noch da, oder verhält es sich dabei wie mit dem I/O-Result was nach einem Aufruf automatisch auf 0 gesetzt wird?

Oder kann ich tatsächlich einfach zuerst ReceiveText aufrufen, und sofern die Plakette nicht erkannt wurde einfach mit dem FileStream weitermachen?

Danke schonmal,

S - tefano

[S - tefano]

Boah, so lange unbeantwortet blieb eine Frage von mir ja noch nie...
Kann mir da wirklich keiner was zu sagen?

[Stanlay Hanks]

Hi....jaja 30 Minuten is schon ungewöhnlich. abe ris auch ziemlich heiß. :wink:

Also zum verschicken von Dateien finde ich persönlich die Indy TrivialFTP Komponenten viel besser. Is ziemlich einfach. Du musst nur Host und Speicherort angeben und schon geht die Post/Datei ab :wink:

Man liest sich, Stanlay :hi:

[flomei]

Zitat:

Zitat von Stanlay Hanks

Hi....jaja 30 Minuten is schon ungewöhnlich. abe ris auch ziemlich heiß. :wink:

Ich weiss nicht ob du richtig auf das Datum geguckt hast. Das sind wenn schon 24 Std. und 30 Minuten.

MfG Florian :hi:

[Stanlay Hanks]

:oops: Sorry. Dann is das wirklich ungewöhnlich.....

[S - tefano]

Hm, joah, 30 Minuten... naja, hat sich ja geklärt.

Ich hatte auch schon überlegt ob ich mir für den Dateitransfer einfach extra Komponenten auf die Forms setze, die dann ausschließlich dafür gut sind.

Hm, die TrivialFTPs sind mir noch garnicht aufgefallen... hm.
Also komplett durchgestiegen bin ich da noch nicht. Also Dateien ziehen und irgendwo hinschieben kann nur der Client, wenn ich das richtig sehe, der Server kann dem Client also nix schicken, oder?

Hat der Server irgendein RootVerzeichnis, oder kann ich vom Client aus in jeden existierenden und nicht schreibgeschützten Ort auf dem Server zugreifen?
Und ist es auch richtig, dass der Server im OnWrite eigentlich immer die empfangene Datei hinschreiben kann wo er will, unäbhängig vom angegebenen Dateinamen?

Werd das Ganze mal ein Bisschen eingehender studieren, bislang gefällt mir die Sache recht gut...

Bis dann,

S - tefano

P.S.: Beantwortung der ursprünglichen Frage ist übrigens immernoch erwünscht, genauso wie weitere Alternativen ;-)

[Stanlay Hanks]

Hi. Nochmal sorry wegen der Bemerkung mit dem Datum...

Hier is ein Tutorial zu den Indys. Vielleicht hilfts ja weiter. Allerdings wird Trivial FTP da nicht besonders ausführlich behandelt

Man liest sich, Stanlay :hi:

[S - tefano]

Hast Recht, besonders ausführlich ist das wirklich nicht.
Aber das werd ich wohl durch Rumprobieren hinkriegen.
Wenns Probleme gibt, mach ich am besten nen neuen Thread auf.

Also danke erst-/nochmal,

S - tefano

[S - tefano]

Hm, schade. Hab mir mal sone TestApp gemacht wo ich gucke was passiert wenn ich bevor ich den Stream speichere noch Socket.ReceiveText aufrufe. Leider sind dann tatsächlich alle Daten im String von ReceiveText, in den Stream kommen dann keine Daten mehr.

Werd das dann also auf TrivialFTP aufbauen. Dazu hab ich dann auch direkt ne Frage -> neuer Thread.

Bis dann,

S - tefano

[flomei]

Hab das noch nicht ganz verstanden. Ist TrivialFTP ne Kompo oder ein Protokoll oder ne Unit oder sonstwas?

MfG Florian :hi:

[S - tefano]

TrivialFTP ist im Wortlaut ein Protokoll, ein vereinfachtes FTP.
Dazu gibts in der Indy Suite zwei passende Komponenten: Server und Client.

Bis dann,

S - tefano

[S - tefano]

GELÖST!

Ok, nach aktuellem Wissensstand war es ja so, dass ich nach einem Aufruf von Socket.ReceiveText nichts mehr in den FileStream schreiben konnte, weil ReceiveText die Daten nach dem Lesen aus dem Speicher entfernt.

Eigentlich hätt ich auch früher drauf kommen können, aber ich machs jetz so:

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  iLen: Integer;
  Bfr: Pointer;
  str: string;
  sstr: TStringStream;
begin
  iLen := Socket.ReceiveLength;
  GetMem(Bfr, iLen);
  sstr:= TStringStream.Create('');
  try
    Socket.ReceiveBuf(Bfr^, iLen);
    sstr.Write(Bfr^, iLen);  //anstatt alles also per ReceiveText zu leeren, schreibe ich mir die Daten erstmal in einen StringStream
    str:= sstr.DataString;  //das dann in einen String (muss eigentlich nicht, kann aber...)
    if copy(str, 1, 4) = plakette then begin  //dann kann ich überprüfen ob es eine Nachricht für mich ist, die mir das Gegenüber geschickt hat
      //hier kann ich dann die normale Nachrichtenverarbeitung machen
    end
    else FStream.Write(Bfr^, iLen);  //FStream ist ein TFileStream, der woanders createt wird. Wenn ich also die ersten Zeichen nicht als Plakette erkenne, schreibe ich die Daten direkt in den FileStream
  finally
    FreeMem(Bfr);
    FStream.Free;
    sstr.Free;
  end;
end;

Getestet - läuft.
Juchuuuuuuu!!!

Bis dann,

S - tefano

[S - tefano]

Hä?
Hab den Post jetzt als offene Frage markiert, um ihn danach wieder als gelöst zu markieren, damit man das dann auch neben dem Post sieht.
Aber wenn ich ihn bearbeiten will, sehe ich nirgendwo die Option, ihn als gelöst zu markieren, und im Formular für ne Antwort find ich da auch nix...

Wie markiere ich den Thread denn jetzt blos als gelöst?!


[EDIT]
Ups, habs hinbekommen, sry.
[/EDIT]