Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Winsock неполучается послать строку 
V
    Опции темы
Ak47black
Дата 11.12.2007, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
Здравствуйте.
Пытаюсь сделать процедуру которая : коннектиться на сервер->посылает строку->отсоединяется
Вот такой код у меня вышел
Код

var
  WSocket: TSocket;
  WSAData: TWSAData;
  Addr_in: TSockAddr;
  Host: PHostEnt;
  InAddr: u_long;
  Address: String;
  Port: Integer;
  SendString: String;
begin
  Address:= 'localhost';
  Port:= 555;
  if WSAStartup($101, WSAData)<>0 then Exit;
  WSocket:= socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
  if WSocket = INVALID_SOCKET then Exit;
  Host := GetHostByName(@Address[1]);
  InAddr := inet_addr(PChar(Address));
  if InAddr = INADDR_NONE then
  begin
    Host := GetHostByName(PChar(Address));
    if not Assigned(Host) then
    begin
      Exit;
    end;
    InAddr := PInAddr(Host.h_addr_list^)^.S_addr;
  end;
  FillChar(Addr_in, SizeOf(sockaddr_in), 0);
  Addr_in.sin_addr.S_addr := InAddr;
  Addr_in.sin_family:= AF_INET;
  Addr_in.sin_port := htons(Port);
  if connect(WSocket, Addr_in, SizeOf(sockaddr_in)) = SOCKET_ERROR then
  begin
    Exit;
  end;
  SendString:= 'Hello';
  send(WSocket, SendString[1], Length(SendString), 0);
  shutdown(WSocket, SD_BOTH);
  closesocket(WSocket);
  WSACleanup;
end;

Приконекчивается нормально но вот строка приходит заполненная нулями.
Гдето чтото нетак но найти немогу.
Подскажите пожалуйста где я сделал ошибку?  smile 

Это сообщение отредактировал(а) Ak47black - 11.12.2007, 20:09
PM MAIL   Вверх
ama_kid
Дата 11.12.2007, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: нет
Всего: 95
Цитата(Ak47black @  11.12.2007,  18:47 Найти цитируемый пост)
->посылает строку->
Что-то не видно в твоем коде ни WSASend, ни просто send... Где оно?



--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
MetalFan
Дата 11.12.2007, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
хмм... а где send?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Ak47black
Дата 11.12.2007, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
Парбон  smile 
Теперь есть. Забыл просто Ctrl+v.
Вот с этим кодом который теперь у меня неработает.

Это сообщение отредактировал(а) Ak47black - 11.12.2007, 20:38
PM MAIL   Вверх
ama_kid
Дата 11.12.2007, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: нет
Всего: 95
Цитата(Ak47black @  11.12.2007,  20:09 Найти цитируемый пост)
Вот с этим кодом который теперь у меня неработает.
А если попробовать @SendString[1]? Что происходит со стороны сервера еще неплохо было бы взглянуть...



--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Ak47black
Дата 12.12.2007, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
Не так то 
Цитата

Constant object cannot be passed as var parameter
PM MAIL   Вверх
Ak47black
Дата 12.12.2007, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
Теперь вот такой получился но всеравно нехочет работать
Код

var
  WSocket: TSocket;
  WSAData: TWSAData;
  Addr_in: TSockAddr;
  Host: PHostEnt;
  InAddr: u_long;
  Address: String;
  Port: Integer;
  SendString: String;
begin
  Address:= 'localhost';
  Port:= 555;
  if WSAStartup($101, WSAData)<>0 then Exit;
  WSocket:= socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
  if WSocket = INVALID_SOCKET then Exit;
  Host := GetHostByName(@Address[1]);
  InAddr := inet_addr(PChar(Address));
  if InAddr = INADDR_NONE then
  begin
    Host := GetHostByName(PChar(Address));
    if not Assigned(Host) then
    begin
      Exit;
    end;
    InAddr := PInAddr(Host.h_addr_list^)^.S_addr;
  end;
  FillChar(Addr_in, SizeOf(sockaddr_in), 0);
  Addr_in.sin_addr.S_addr := InAddr;
  Addr_in.sin_family:= AF_INET;
  Addr_in.sin_port := htons(Port);
  if connect(WSocket, Addr_in, SizeOf(sockaddr_in)) = SOCKET_ERROR then
  begin
    Exit;
  end;
  SendString:= 'Hello'+#13#10;
  send(WSocket, SendString[1], Length(SendString), 0);
  shutdown(WSocket, SD_BOTH);
  closesocket(WSocket);
  WSACleanup;

Получаю строку заполненную нулями.
PM MAIL   Вверх
MetalFan
Дата 12.12.2007, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
Цитата(Ak47black @  12.12.2007,  17:32 Найти цитируемый пост)
send(WSocket, SendString[1], Length(SendString), 0);

может 
Код

send(WSocket, @SendString[1], Length(SendString), 0);



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
MetalFan
Дата 12.12.2007, 18:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
а что send возвращает?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Ak47black
Дата 12.12.2007, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
Вотс тестовый пример (два Сервер и клиент)

Это сообщение отредактировал(а) Ak47black - 12.12.2007, 18:26

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  StrangeConnection.rar 3,51 Kb
PM MAIL   Вверх
MetalFan
Дата 12.12.2007, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
кто ж так со строками работает?! ты ж терминальный 0 не передаешь.
Код

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Len: Integer;
  lStr: string;
begin
  Len:= Socket.ReceiveLength;
  SetLength( lStr , Len ); //выделили память
  Len := Socket.ReceiveBuf(lStr[1], Len); //считали, сколько получилось
  SetLength( lStr, Len ); //урезали в случае чего
  ShowMessage(lStr);
end;


Это сообщение отредактировал(а) MetalFan - 12.12.2007, 18:38


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0517 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.