Я конечно думаю что до меня эту тему подымали много раз но всё же. Пишу прогу для обмена файлами через нет. Ну в общем такая проблема прога работает как сервер так и клиент. когдда в одной копии проги запускаю сервер а вторую как клиент то приуказание адресса хоть и через значительное время но происходит коннект . А при испытаниях через интернет ничего не происходит либо вылетает ошибка сокета
Добавлено через 6 минут и 5 секунд
процедура подключения
| Код |
procedure TForm1.N111Click(Sender: TObject);
begin
adress:=inputbox('Óñòàíîâêà ñîåäèíåíèÿ!','Ââåäèòå IP-àäðåññ: ','');
if adress<>'' then
begin
client.Address:=adress;
client.Port:=2221;
client.Active:=true;
memo1.Lines.Add('Óñòàíîâêà ñîåäèíåíèÿ ñ '+ adress );
end
else
begin
memo1.Lines.Add('Óñòàíîâêà ñîåäèíåíèÿ ïðåðâàíà ïîëüçîâàòåëåì!');
end;
end;
|
процедура сервера
| Код |
procedure TForm1.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
if MessageDlg('Ïîïûòêà ïîïûòêà ïîäêëþ÷åíèÿ ñ '{+server.Socket.RemoteAddress}+#10+#13+'Ðàçðåøèòü ïîäêëþ÷åíèå?' ,
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
memo1.Lines.Add('Ðàçðåøåíî ïîäêëþ÷åíèå: ') {server.Socket.RemoteAddress} ;
end
else
begin
memo1.Lines.Add('Êëèåíò '+ {erver.Socket.RemoteAddress+}' îòêëþ÷åí.' );
server.Active:=false;
end;
end;
|
и я понять так и не могу почему через нет ни видно
|