Text Übermitteln und Speichern lassen

N47R0N · Beiträge: 134

Hi

Ich Code Gerade ein Tool das einfach einen Text an einen Server Sendet
Der Server fängt den gansen Text auf und Speichert ihn in einer Date .

Mein Source sieht so aus :

Client :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
AI : String;
begin
  AI:='Memo4.Lines';
  Form1.ClientSocket3.Socket.SendText('Message' +AI);
end;

In dem teil soll der Client einfach nur den inhalt von Memo4 Senden und Message soll dem Server sagen das das der richtige string ist der Augeführt werden soll .

Server :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
AI : String;
begin
sock := Socket.ReceiveText;
if sock='Message' then Begin
s :=AI;
AssignFile(F, 'C:/Datei.txt');
rewrite(f);
Writeln(F, S);
CloseFile(F);
end;

Also wenn der Server nun den String mit Message entfängt nimmt der AI und fängt an die txt Datei von mit dem inhalt AI zu schreiben .

so sollte das ganse jedenfals sein funktioniert aber net :-(

( war mir irgendwie klar )
kann mir jemand helfen ??

Danke im voraus

retnyg · Verfasst: Sa 09.07.05 10:32

guck dir mal das chat-beispiel an, ist unter demos\inet im delphiordner

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

N47R0N · Beiträge: 134

geht das mit meinem source den überhaupt nicht???

retnyg · Verfasst: Sa 09.07.05 11:21

dein source strotzt nur so vor denkfehlern:

N47R0N hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
AI : String;
begin
  AI:='Memo4.Lines'; // hier steht in AI immer der text 'memo4.lines' aber nicht das was in memo4 drin ist
  Form1.ClientSocket3.Socket.SendText('Message' +AI);
end;

Server :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
AI : String;
begin
sock := Socket.ReceiveText; // verwende das entsprechende ereignis von tserversocket
if sock='Message' then Begin // die bedingung wird nie eintreffen weil die message nicht 'message' ist sondern nur damit anfängt. schau dir hierzu die funktion COPY an
s :=AI; // woher soll der wert von AI bitteschön herkommen ? sehe keine zuweisung
AssignFile(F, 'C:/Datei.txt'); // seit wann verwenden dos-basierte systeme slashes bei pfadangaben?
rewrite(f);
Writeln(F, S);
CloseFile(F);
end;

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme