Entwickler-Ecke :: Thema anzeigen - Text Übermitteln und Speichern lassen

N47R0N - Sa 09.07.05 09:54
Titel: Text Übermitteln und Speichern lassen

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 :

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 :

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 - Sa 09.07.05 11:21
Titel: Re: Text Übermitteln und Speichern lassen

dein source strotzt nur so vor denkfehlern:

N47R0N hat folgendes geschrieben:

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 :

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;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!