Я тут новенькая вопрос по OOG Delphi

[biscuit girl]

Кто может показать пример хотя бы подключения к серверу и получения пакета с него,
и принцип отправки пакета
больше я не чего не попрошу огромное спасибо всем кто отзовется

На Delphi

P.s Ребят ну хоть в лс поделитесь просто очень интересно

[_Wolf_]

Цитата: пример хотя бы подключения к серверу и получения пакета с него

TClientSocket кидаешь на форму, а далее подключаешся к серверу и тебе сразу приходит пакет.
На форуме есть несколько примеров ток они на С# принцип тот же.

[biscuit girl]

Я тупая (
пишу так подключение

PHP код:

procedure TForm1.ClientSocketConnecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
log.Lines.Add('['+TimeToStr(Time)+'] Подключение к серверу.');
end;

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
// читаю ответ
log.Lines.Add(Socket.ReceiveText());
end;

procedure TForm1.sBitBtn1Click(Sender: TObject);
begin
ClientSocket.port:=StrToInt(port.text);
ClientSocket.Host:=host.text;
ClientSocket.Address:=host.text;
ClientSocket.Active:=true;
end;

end. 


Получила ошибку: asynchronous socket error 10060

[_Wolf_]

Цитата: procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket); begin

тут обьявляем обычный массив var mymassive: array [0..1023] of byte;
затем просто читаем
socket.// точно не помню recievebuf(mymassive, sizeof(mymassive));
Дальше разбираешь пакет что получила.
Если ты к руофу пытаешься приконектится, то тут в соседних ветках есть реализованные примеры.

[biscuit girl]

я читаю ответ так

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
mymassive: array [0..1023] of byte;
s:integer;
begin
// читаю ответ
log.Lines.Add(Socket.ReceiveText());
s:= ClientSocket.Socket.ReceiveBuf(mymassive, sizeof(mymassive));
log.Lines.Add(''+IntToStr(s)+'');
end;

но проблема что при коннекте

 
procedure TForm1.sBitBtn1Click(Sender: TObject);
begin
If sBitBtn1.Tag=0 then
begin

ClientSocket.Address:=host.text;
ClientSocket.Host:=host.text;
ClientSocket.port:=StrToInt(port.text);
ClientSocket.Active:=true;
sBitBtn1.Tag:=1;
sBitBtn1.Caption:='Disconnect';
end
else
Begin
sBitBtn1.Tag:=0;
sBitBtn1.Caption:='Connect';
ClientSocket.Active:=false;
End;
end;

Мне выдаёт
[3:05:38] Подключение к серверу:link2.pwonline.ru:29000...
[3:05:59] Ошибка: (10060)
socket error #10060
или
[3:07:26] Ошибка: (11001)
[3:07:26] Подключение Разорвано!
socket error #11001
что не так делаю

[manx5]

10060 это таймаут. фаервол может не даёт конкретно этому новому Вашему приложению соединяться?

[_Wolf_]

Цитата: ClientSocket.Address:=host.text; ClientSocket.Host:=host.text;

Тут достаточно только ClientSocket.Host:=host.text;
Затем, посмотри, возможно реально блокирует фаервол приложение.

[biscuit girl]

в том и дело я всё отключила и ошибка не проходит

[manx5]

поскольку 10060 появляется аж через 20 секунд можно успеть сделать следующую проверку сразу после запуска приложения и попытки конекта дать команду

netstat -nao | findstr 29000

в командной строке (пуск-выполнить-cmd)