Forum: Netzwerke
Delphi
by Crayser,
26. Feb 2003
Hallo zusammen,
mithilfe des debuggers habe ich eine seltsame Sache entdeckt. Und zwar handelt es sich um ein shortstring, den ich nicht editieren kann.
Hier nochmal ein aktuelles Code Fragment:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var empfang:string;
test:char;
Forum: Netzwerke
Delphi
by Crayser,
9. Feb 2003
Hallo Christian
erst einmal zur Länge des Strings.
ich habe es jetzt ziemlich unelegant gelösst. woher soll denn empfang die Länge erfahren? Soll ich die Information über die Länge des Strings schon im Clienten mitsenden, sodass empfang seine Größe mit dem gegebenen Wert verändern kann? Denn die Länge hängt ja von der Länge ab, die der Client versendet. Das gleiche Problem habe ich dann auch...
Forum: Netzwerke
Delphi
by Crayser,
3. Feb 2003
Hallo Christian
wird dann die Länge des Strings dynamisch geregelt? Also kann ich dann getrost die Auffüllung mit #0 weglassen wenn ich die Länge mit SetLength deklariere? Muss ich mal ausprobieren.
Nun hab ich aber ein anderes Problem, wo ich noch nicht so schnell eine Lösung finden konnte. Und zwar will ich gleich mehrere Informationen aufeinmal per Netzwerk senden. Jedoch ist sendText bzw....
Forum: Netzwerke
Delphi
by Crayser,
25. Jan 2003
Ah ich hab den Fehler gefunden. Ich hatte die Größe der strings nicht deklariert und daher kam der Fehler. Jetzt ist es aber nun ziemlich unpraktischt, da ich das Ende von temp bestimmen muss. Je nachdem wie groß der integerwert von empfang ist, variiert das ende von temp. Gibt es da einen eleganteren Weg, als alle (bzw. die Endwerte) von temp vorher auf #0 zu setzen?
Danke für die Tipps...
Forum: Netzwerke
Delphi
by Crayser,
25. Jan 2003
temp:=empfang;
Hallo Christian,
beim debuggen bleibt er an diesem code hängen. ich persönlich kann da aber keinen fehler erkennen. beide variablen sind strings, ich kopiere bis auf das erste zeichen den ganzen inhalt von empfang in temp. i ist in einer for schleife die bis length(empfang) läuft.
Forum: Netzwerke
Delphi
by Crayser,
24. Jan 2003
Hi Christian
die Fehler liegen nicht an den anderen case Befehlen. Der case Befehl ist eigentlich aus if empfang=1 .. else if empfang=2 .. etc. audgebaut. Deshalb sind die Anweisungen unabhängig voneinander. Bei den 3 anderen case Befehlen läuft alles gut.
Timer2 ist nicht sehr lang; habe es trotzdem mit dem dis/enable probiert.. ohne Erfolg. Trotzdem Danke. Das timing Intervall ist auch...
Forum: Netzwerke
Delphi
by Crayser,
20. Jan 2003
Ich habe noch die Fehlermeldung in den Anhang gesetzt. Kann mir jemand sagen was da nicht stimmen könnte?
Wenn ihr wollt, kann ich die source vom client und server noch uploaden. Doch an anderen Stellen im source dürfte der Fehler nicht liegen.
ciao Crayser
Forum: Netzwerke
Delphi
by Crayser,
19. Jan 2003
Hallo zusammen
ich habe 2 programme; server und client. nun will ich das der server nach einer gewissen zeit einige Variablen zum Client sendet.
//Code vom Server
procedure TForm1.Timer2Timer(Sender: TObject);
var Leftstr:string;
begin
Leftstr:=inttostr(Schlaeger.Left);
ServerSocket1.Socket.Connections.SendText('4'+Leftstr);