Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.11.2011, 21:38   #1
Reglament_
Пользователь
 
Регистрация: 09.11.2011
Сообщений: 12
По умолчанию Delphi + cs 1.6

Люди Помогите с кодом!
тут все просто, поключение к серверу и отправка команды
и должен получить ответ от сервера!
Что не так?

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, Sockets,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdUDPClient1: TIdUDPClient;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  otvet:UTF8String;
begin
  try
    IdUDPClient1.BroadcastEnabled:=True;
    IdUDPClient1.Host:= Edit1.Text;
    IdUDPClient1.Port:= Edit2.Text;
    IdUDPClient1.Active:= true;
    IdUDPClient1.OnConnect:= true;
    IdUDPClient1.Send('яяяяTSource Engine Query');
    otvet:=IdUDPClient1.ReceiveString;
    Memo1.Lines.Add(otvet)
  finally
    IdUDPClient1.Active:=False;
  end;
end;
end.
Reglament_ вне форума Ответить с цитированием
Старый 26.09.2012, 22:34   #2
supertony
 
Регистрация: 31.10.2009
Сообщений: 7
По умолчанию

кто знает ответ. У меня возвращает пустую строку
supertony вне форума Ответить с цитированием
Старый 30.09.2012, 14:18   #3
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

IdUDPClient1.Send('яяяяTSource Engine Query' + #0); вот правильный запрос нужно занулить конец строки
И еще одно вы получите не все данные так как вы ожидаете string все что перед символом #0 вы увидите а после нет обрабатывать ответ по другому нужно

Последний раз редактировалось Aliens_wolfs; 30.09.2012 в 14:22.
Aliens_wolfs вне форума Ответить с цитированием
Старый 30.09.2012, 18:21   #4
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

В ответ приходит массив. Об этом свидетельствует спецификация протокола. Читайте её, смотрите примеры реализаций на др. языках..
Человек_Борща вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не изменяется интерфейс моей программы при переходе с Delphi 7 на Delphi 2010 Elvisnya Общие вопросы Delphi 3 28.04.2011 15:59
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7 666dart666 Помощь студентам 11 04.11.2010 17:57
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism savva-paladin Софт 18 02.10.2010 20:24
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? redred Общие вопросы Delphi 10 11.12.2007 10:43
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? dagarik БД в Delphi 7 22.10.2007 17:54