IdUDPClient & IdUDPServer ==> Вешаться или подскажите?

← →
Nes © (2005-03-27 16:38) [0]

Вот, запарился...опять же...с 127.0.0.1 всё работает, но только появилься другой IP и косяк...привожу куски кода, может чё не так...как делают умные люди=)

Client:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Port:=43436;
IdUDPClient1.Host:=edit2.text;
IdUDPClient1.active:=true;
IdUDPClient1.Send(edit3.Text);
end;

Теперь сам сервер:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPServer1.Active:=true;
end;

И на событие:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
msg:string;
s:Integer;
begin
s:=adata.Size;
setlength(msg,s);
adata.Read(msg[1],s);
showmessage(msg);
end;

Вот и всё? В чём косяк? Может я чё не так делаю, или что-то ещё нужно?

← →
Nes © (2005-03-27 17:47) [1]

Вешаться?

← →
Змей © (2005-03-27 18:59) [2]

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
s:string;
sfs:tstringstream;
begin
sfs:=tstringstream.Create("");
sfs.CopyFrom(adata,adata.Size);
s:=sfs.DataString;
showmessage(s);
end;
попробуй мож буить работать

← →
nes © (2005-03-27 21:01) [3]

Нет,нет...дело не в обработке сообщения,а в Connection Timeout,хотя всё сделано,...мне тут сказали, что это может быть в том, что провайдеры ставять прохи? И нужен скрипт для обхода или чё-та такое...Это действительно так?и в чём ещё может быть дело?

← →
Nes © (2005-03-28 18:02) [4]

=( Если никто не знает, напиши, что не знаете, а то я каждый день проверяю, в надежде, что мне ответили, а тут облом=(

← →
Nes © (2005-03-30 15:47) [5]

"В сеть"? - эт ты имеешь ввиду типа соедины ли компы Lan...нет...только доступ в инет паутинку...

← →
Nes © (2005-03-30 15:52) [6]

Эх блинс...не туда написал...

← →
miek © (2005-05-19 11:40) [7]

UDP могут убиваться файрволлом. На передающей или принимающей стороне присутствует?

Вообще, не фаервола, никаких других программ,сервес пак 2 не стоит

> дело не в обработке сообщения,а в Connection Timeout

а обработчик-то при чем ?

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

если же отказ по таймауту возникает при вызове Send-метода, то это - совсем иной коленкор)...

← →
MASSACRE (2005-06-24 07:20) [10]

Вариантов таймАута может быть много
как уже сказанно фаер вол.
шибко "Умный комутатор"

А вообще от клиента к серверу хотя бы пинг идет ?

IdUDPClient &amp; IdUDPServer ==> Вешаться или подскажите? Найти похожие ветки

IdUDPClient & IdUDPServer ==> Вешаться или подскажите? Найти похожие ветки