Готовый UDP client/server - настройка Клиента

[WinCoder]

если конечно не в падлу

Убило окончательно. Удаляюсь на безопасное расстояние.

[orakul77]

А тебя тут не кто не держит )

[Slym]

Смотрю... Форматирование хреновое...
try finally - Не, не слышал...
Self глаза покраснели...
// замена порта на ходу
IdUDPServer1.Free;
IdUDPServer1 := TIdUDPServer.Create(self);
нафега?

procedure TForm1.SendClick(Sender: TObject);
var
  S:string;
  Data:TIdBytes;
  Client:TIdUDPClient;
begin
  s:=DataEd.Text;
  SetLength(Data,length(s));
  move(s[1],Data[0],length(s));
  Client:=TIdUDPClient.Create;
  try
    Client.SendBuffer(HostEd.Text,StrToInt(PortEd.Text),Data);
  finally
    Client.Free;
  end;
end;

[orakul77]

Спасибо за работу - тока у меня вопрос , у тебя все нормально там работает ? А то у меня какие-то ошибки выводит .... Ну мол Клиент должен посылать пакеты а сервер их принимать >

[orakul77]

Можешь пожалуйста проверить еще раз .... Хотя мб у меня делфи корявый что с ошибками все запускает , если у тебя все супер - можешь закинуть еще туда экзешник и скинуть суда еще раз )

[Slym]

Версия дельфи юникодовая?
1. Я пользую D7 она не юникодовая... попробуй string заменить AnsiString или пользуй индевые ToBytes и BytesToString
2. У меня часть компонентов оказалась не именована в.т.ч. поля для ввода ip порта и сообщения
в связи с чем я присвоил имена DataEd, HostEd, PortEd
3. Приведенный код не ждет ответа, а ты ответ высылаешь может в этом проблема (при блокировании ответа ошибок нет)

procedure TForm1.SendClick(Sender: TObject);
var
  S:AnsiString;
  Data:TIdBytes;
  Client:TIdUDPClient;
begin
  s:=DataEd.Text;
  SetLength(Data,length(s));
  move(s[1],Data[0],length(s));
  Client:=TIdUDPClient.Create;
  try
    Client.SendBuffer(HostEd.Text,StrToInt(PortEd.Text),Data);
  finally
    Client.Free;
  end;
end;

с приемом ответа

procedure TForm1.SendClick(Sender: TObject);
var
  Data:TIdBytes;
  Client:TIdUDPClient;
  S:string;
  C:dword;
begin
  Data:=ToBytes(DataEd.Text,en8Bit);
  Client:=TIdUDPClient.Create;
  try
    Client.SendBuffer(HostEd.Text,StrToInt(PortEd.Text),Data);
    c:=GetTickCount;
    while (GetTickCount-c)<10000 do
    begin
      s:=Client.ReceiveString(0);
      if Length(s)>0 then
      begin
        DataEd.Text:=s;
        Break;
      end;
      Application.ProcessMessages;
    end;
  finally
    Client.Free;
  end;
end;