Download und einbau

[Zero]

Hallo....
Ich möchte gern ein Programm schrieben das Folgendes kann bzw. macht. Es soll eine *.text Datei von einem Server laden und den Text in einem Memo Feld ausgeben .....

Kann mir da jemand weiter helfen, wie ich denn download usw. anstelle...

MfG
Christian

[Ralph Erdt]

Moin!<BR>
Ist der Server von Dir selber geschrieben, oder ein Webserver.<BR>
Wenns ein Webserver ist, keine Ahnung wie.<BR>
Aber ansonsten würds ich mit einer blokierenden Verbindung versuchen:<BR>
<PRE>
var
buf:array[1..1024] of char;
tss:TWinSocketStream;
sts:TStringStream;
x:integer;
begin
// Bla bla
tss:=TWinSocketStream.Create(ClientSocket1.Socket, 1000);
sts:=TStringStream.Create('');
// Bla bla
ClientSocket1.Socket.SendText('gib mir endlich die Verdammte Datei');
Application.ProcessMessages; // Ist drin, weil mein Prpgramm sowohl client als auch server ist, und wnn ich mit 127.0.0.1 teste..
while tss.WaitForData(100) do begin
x:=tss.Read(buf,sizeof(buf));
sts.WriteBuffer(buf,x);
end;
diedatei:=trim(sts.DataString);
sts.Position:=0;
// Bla bla
tss.free;
sts.free;
end;
</PRE>
In diesem Zusammenhang ungetestet. Aber den Kode habe ich mir aus meinem aktuellen Projekt kopiert.<BR>
Ach ja: Blokierende Verbindung: in der Socket-Komponente Clienttype=ctBlocking setzen.<BR>
<BR>
MFG,cu,LLAP Ralph Erd