Developing.ru

Ну тогда ясен пень, что нужно это делать согласно протоколу, заголовок, тема, и текст письма пишется после матерных слов как описано здесь [url]http://www.codenet.ru/webmast/smtp.php[/url]

[b]Dr_Grizzly[/b], [b]somewhere[/b], спасибо за помощь

Порт 25 принципиален потому, что мне нужно слабать SMTP-relay

Так я просто хотел проверить работает оно вообще или нет. Типа - маленькая прога, которая тупо шлет релею текст через 25 порт, а он уже шлет его на какое-то мыло

[b]Ortos[/b], не советую использовать порт TCP 25, т.к. он специально предназначен для отправки/получения электронной почты (MTA). Некоторые средства защиты Windows трафик по этому порту могут не пропустить, если не соблюдены правила протокола.

Хм, интересненька :) Я думаю, что что-то все же ждет по 25 порту пакета, хотя черт знает, тут вопрос для админа почтовых служб.

Значит прога работает, тогда почему тебе так принципиален именно 25 порт? Есть литера по тому как должны выглядеть пакеты передаваемые по 25 порту, но где видел ща не помню, надо рыться в и-нете...

Dr_Grizzly, спасибо что ответил..

Проблема именно в 25 порте

Система вся крутится на локалхосте, файрволов нет, netstat говорит, что 25 порт не занят,
но через 25 порт почему-то данные не передаются...
К примеру через 456 порт - все нормально, работает
Через 25 - беру сервак в отладку - нормально, событие OnExecute срабатывает, однако текст не передается..
Вот такая ситуация

Короче, у дельфы 6 есть пример работы на idТСР компонентах, лежит в папке дельфы\demos\intenet\chat там и клинет и сервер, глянь да сделай на примере

IdTCPClient1.WriteLn(компонент)

По-моему AThread.Connection.ReadLnWait или ReadString... на принятие сообщения... Точно не помню

Товарищи, помогите пожалуйста разобраться:
Написал 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]

Вроде все работает, беру сервак в отладку - нормально, событие срабатывает, однако текст почему-то не передается.. никак не могу понять в чем дело, если кто может - помогите пожалуйста.

Заранее спасибо

З.Ы. Никаих файрволов и прочих прог на компе у меня не установлено