Re: Lib_socket
ну еще бы хотел ))))))
во первых: где символ перевода каретки? и что за \r\n? меняем везде
SendState:= Socket.WriteStr('HELO there\r\n');
на
SendState:= Socket.WriteStr('helo there' + chr(10));
во вторых: где чтение и анализ ответа сервера или хотя бы простые задержки между командами? добавляем где надо
Delay(2000);
while Socket.Available > 0 do RecvString:= RecvString + Chr(Socket.Read);
ну и в третьих и четвертых: на сервере может быть авторизация. и у тебя на внешнем шлюзе может быть закрыт 25 порт во избежание.
вобщем лови пример, код конечно ужасный, но у меня в локалке с локальным почтовиком все работает.
|