Client and Server

← →
SerJaNT (2005-11-22 12:43) [0]

Не могу понять, в чем проблема. Уже час маюсь и не пойму, может подскажете?

Есть две проги: клиент и сервер.

На клиенте компонент tcpclient и соответственно на сервере tcpserver

**** КЛИЕНТ ******

Процедура которая соединяется с сервером и посылает ему строку, например 123

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
var
Ini: TIniFile;
addr,port: string;
begin
if selected then begin
try
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + "adresa.txt");
addr := Ini.ReadString(item.Caption, "Addr", "");
port := Ini.ReadString(item.Caption, "Port", "");
msg ("Соединение...");
TcpClient1.RemoteHost:=addr;
tcpclient1.RemotePort:=port;
tcpclient1.Active:=true;
tcpclient1.Connect;
if tcpclient1.Connected then begin
tcpclient1.Open;
tcpclient1.Sendln("123");
end else
begin
showmessage("Ошибка подключения!");
end;
form2.Close;
finally
Ini.Free;
end;
end;
end;

Сервер активен и к нему могу подключаться клиенты.
Но вот проблема в этом коде:

На событие OnListening компонента TCPServer пишу:

showmessage(tcpserver1.Receiveln);

По идеи, он должен вывести сообщение с текстом 123 от клиента, но ничего не происходит! Все тихо!
Подскажите, в чем трабл?

← →
Desdechado © (2005-11-22 12:52) [1]

сервер какую архитектуру имеет?
а то не все могут взаиможействовать с рабочим столом

← →
Digitman © (2005-11-22 12:57) [2]

код никуда не годится и демонстрирует полное непонимание происходящего на сервере и на клиенте в соответствующих компонентах.

ты описания событий этих компонентов читал ?

← →
SerJaNT (2005-11-22 13:13) [3]

Первая процедура - соединяется при клике на соответствующем элементе listview (сорри, забыл дописать).

Client and Server Найти похожие ветки