cs and programming!

Reglament_ · #1 10.12.2011, 22:17

Вроде все на океу!

NumLock · #2 11.12.2011, 09:51

Код:

uses
  IdSocketHandle,
 
type
  TForm1 = class(TForm)
    IdUDPServer1: TIdUDPServer;
    Memo1: TMemo;
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
 
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
begin
  Memo1.Text:=IdUDPServer1.ReceiveString();
end;

Reglament_ · #3 11.12.2011, 17:19

мм...на Инди. Ну и на этом спс.

NumLock · #4 12.12.2011, 16:05

Код:

uses
  WinSock,
 
const
  SOCK_MSG = WM_APP+$101;
 
var
  FSocket: TSocket;
...
      if WSAAsyncSelect(FSocket, hwnd, SOCK_MSG, FD_READ)=SOCKET_ERROR then
        SocketError(WSAGetLastError, 'WSAAsyncSelect()');
...
оконная процедура:
var
  SockAddrIn: sockaddr_in;
  Buffer: array [0..$fff] of Byte;
  len: Integer;
  fromlen: Integer;
...
    SOCK_MSG: begin
      if wParam=FSocket then
      begin
        if LOWORD(lParam)=FD_READ then
        begin
          fromlen:=SizeOf(sockaddr_in);
          len:=recvfrom(FSocket, Buffer[0], Length(Buffer), 0, SockAddrIn, fromlen);
          if len<>SOCKET_ERROR then ...

Reglament_ · #5 12.12.2011, 22:15

Цитата:

Сообщение от NumLock

Код:

uses
  WinSock,
 
const
  SOCK_MSG = WM_APP+$101;
 
var
  FSocket: TSocket;
...
      if WSAAsyncSelect(FSocket, hwnd, SOCK_MSG, FD_READ)=SOCKET_ERROR then
        SocketError(WSAGetLastError, 'WSAAsyncSelect()');
...
оконная процедура:
var
  SockAddrIn: sockaddr_in;
  Buffer: array [0..$fff] of Byte;
  len: Integer;
  fromlen: Integer;
...
    SOCK_MSG: begin
      if wParam=FSocket then
      begin
        if LOWORD(lParam)=FD_READ then
        begin
          fromlen:=SizeOf(sockaddr_in);
          len:=recvfrom(FSocket, Buffer[0], Length(Buffer), 0, SockAddrIn, fromlen);
          if len<>SOCKET_ERROR then ...

блинн вот е*** в** !
Заставил человека напрягаться.
Олег ты извени!
Там сокет из другой вкладки был просто.

NumLock · #6 13.12.2011, 08:53

да тут вообще никаких вкладок не надо, достаточно uses WinSock.

Reglament_ · #7 19.12.2011, 21:29

/up people!
up
up
up
up

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Reglament_ (27.02.2012)