A co ty masz za komponent? to jest IdTCPClient czy cos innego?
Client:
begin
Client.Connect();
Client.WriteLn('GET');
Client.ReadBuffer(StringBuf[0], Length(StringBuf));
Client.Disconnect;
end;
Procedura wczytujaca do list boxa:
var
i: integer;
s: string;
begin
for i := Low(StringBuf) to High(StringBuf) do
begin
s := StringBuf[i];
ListBox.Items.Add(s);
end;
end;
Server:
var
cmd: string;
begin
cmd := AThread.Connection.ReadLn();
if cmd = 'GET' then
begin
AThread.Connection.OpenWriteBuffer();
AThread.Connection.WriteBuffer(StringBuf[0], Length(StringBuf), True);
AThread.Connection.CloseWriteBuffer;
end;
Nie wiem czego nie działa.. wiem, że program sie zatrzymuje gdy klient proboje przypisac zmienej s (string) dany element z otrzymanej tablicy.
Wedlug mnie wszystko robie dobrze..
Moze cos przeoczylem?