Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 03.05.2010, 19:35   #1
seobot
Пользователь
 
Регистрация: 26.04.2010
Сообщений: 18
По умолчанию TCPServer, TCPClient

Меня интересует вопрос: Почему когда я запускаю на удаленом сервере Серверное приложение и на своем компе клиентское - не происходит соединение?

клиент:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  TcpClient.Sendln(Edit1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TCPClient.RemoteHost:='82.117.160.91';
  TCPClient.RemotePort:='1090';
  TCPClient.Connect;
end;

procedure TForm1.TcpClientConnect(Sender: TObject);
begin
Form1.Caption:= 'Connect';
end;

end.
сервер:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
TCPServer.LocalPort:='1090';
TCPServer.Active:= true;
end;

procedure TForm1.TcpServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
 msg: string;
begin
 repeat
   begin
     msg:= TCPServer.Receiveln;
     if msg <> '' then Memo1.Lines.Add(msg);
   end
 until msg = '';
end;

end.
seobot вне форума Ответить с цитированием
Старый 03.05.2010, 21:59   #2
bitSoft
Programming...
Форумчанин
 
Аватар для bitSoft
 
Регистрация: 13.03.2010
Сообщений: 198
По умолчанию

Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  TCPClient.RemoteHost:='82.117.160.91';
  TCPClient.RemotePort:='1090';
  TCPClient.Active := True;
end;
Код:
With TProgrammersForum.Create do  AddNewTopic('Title','Content...');
bitSoft вне форума Ответить с цитированием
Старый 03.05.2010, 23:56   #3
seobot
Пользователь
 
Регистрация: 26.04.2010
Сообщений: 18
По умолчанию

Все равно не пашет. В Мемо ничего не пишется...
seobot вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Delphi] TCPserver, TCPclient MASSIOMO Работа с сетью в Delphi 14 29.07.2010 17:53
TCPClient, TCPServer : SendBufer() Zeraim Работа с сетью в Delphi 4 27.12.2009 22:22
Помогите разобраться с TcpServer и TcpClient KingMaker Компоненты Delphi 0 30.03.2009 08:59
TcpClient и TcpServer DOLBY Работа с сетью в Delphi 5 17.12.2007 11:43
TCPServer и TCPClient Antoha Работа с сетью в Delphi 19 06.10.2007 12:01