Ortos » 21 сен 2007, 11:50
Товарищи, помогите пожалуйста разобраться:
Написал 2 маленьких проги, использовал компоненты Indy9:
Сервер, на форме idTCPServer, слушает 25 порт, localhost
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
with AThread.Connection do
begin
MessgesLog.Lines.Add(AThread.Connection.CurrentReadBuffer);
Disconnect;
end;
end;
клиент, отсылает на localhost, порт 25, некие данные:
procedure TForm1.BtnSendMailClick(Sender: TObject);
begin
if not IdTCPClient1.Connected then
IdTCPClient1.Connect();
IdTCPClient1.Write(MessageText.Text);
IdTCPClient1.Disconnect;
end;
Вроде все работает, беру сервак в отладку - нормально, событие срабатывает, однако текст почему-то не передается.. никак не могу понять в чем дело, если кто может - помогите пожалуйста.
Заранее спасибо
З.Ы. Никаих файрволов и прочих прог на компе у меня не установлено
Товарищи, помогите пожалуйста разобраться:
Написал 2 маленьких проги, использовал компоненты Indy9:
Сервер, на форме idTCPServer, слушает 25 порт, localhost
[b]procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
with AThread.Connection do
begin
MessgesLog.Lines.Add(AThread.Connection.CurrentReadBuffer);
Disconnect;
end;
end;[/b]
клиент, отсылает на localhost, порт 25, некие данные:
[b]procedure TForm1.BtnSendMailClick(Sender: TObject);
begin
if not IdTCPClient1.Connected then
IdTCPClient1.Connect();
IdTCPClient1.Write(MessageText.Text);
IdTCPClient1.Disconnect;
end;[/b]
Вроде все работает, беру сервак в отладку - нормально, событие срабатывает, однако текст почему-то не передается.. никак не могу понять в чем дело, если кто может - помогите пожалуйста.
Заранее спасибо
З.Ы. Никаих файрволов и прочих прог на компе у меня не установлено