Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 10.11.2010, 21:44   #1
xakkkkker
Форумчанин
 
Аватар для xakkkkker
 
Регистрация: 15.12.2007
Сообщений: 226
По умолчанию 3ж модем и VPN скоростной интернет

Доброе время уважаемые программмисты. Такая проблема. Есть программа написанная на дельфи 2010 для отправки электронной почти. Так вот это программа отправляет письмо когда на компьютере интернет через 3ж модем, а если VPN скоростной интернет вылазает ошибка "socket Error # 10060
connektion timed out."

на компьютере не установлен ни антивирус ни фаерол Брандмауэр виндовса отключен. Главное интерено почему он через 3ж модемработает а через VPN нет.

Вот код

Код:
unit Unit1;

interface

uses
  Windows, Messages,  Variants, Classes, Controls, Forms,Dialogs,
  IdAttachmentFile, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
  IdSMTPBase, IdSMTP, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    procedure Button1Click(Sender: TObject);
  private
    procedure mailsend(tema: string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
  procedure TForm1.Button1Click(Sender: TObject);
begin
mailsend('программа 2 213.180.204.38 ');
end;


procedure TForm1.mailsend(tema:string);
var
attach:TIdAttachmentFile;
msg: tidmessage;
i: integer;
begin
idSMTP1.Username:='tdkrasnodarskiy'; // ваш логин
idSMTP1.Password:='*********';  // пароль
idSMTP1.Host:='213.180.204.38'; // хост mail.ru
IdSMTP1.Port:=25; // порт mail.ru
msg:=TIdMessage.Create(nil);
msg.Body.Add('Прайс лист'); // сообщение письма
msg.Subject:=tema+' Прайс лист'; // заголовок письма (Тема)
msg.From.Address:='tdkrasnodarskiy@yandex.ru'; // от кого отправляем письмо
msg.From.Name:='ТД Краснодарский Офис'; // имя отправителя
msg.Recipients.EMailAddresses:='x-zone92@mail.ru'; // кому отправить письмо
msg.IsEncoded:=true;
//attach:=TIdAttachmentFile.Create(msg.MessageParts,put); // раскоментируйте эту строчку если хотите отправить письмо с вложением, где attach.exe, 
файл который должен лежать в той же директории что и сама программа
idSMTP1.Connect();
if idSMTP1.Connected then
begin
idSMTP1.Send(msg);
Application.ProcessMessages;
ShowMessage('Сообщение отправлено');
IdSmtp1.Disconnect;
end
else
IdSMTP1.Disconnect;

end;
end.

Последний раз редактировалось mihali4; 10.11.2010 в 21:52.
xakkkkker вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Реализация выхода в Интернет через GSM модем blazonic Общие вопросы .NET 5 16.05.2011 09:55
Может ли один модем Ethernet + USB раздавать интернет на два компа? Qosta Операционные системы общие вопросы 8 21.06.2010 21:14
VPN KREGI Свободное общение 3 13.05.2009 08:48
Как организовать удаленную связь c БД через модем (DSL/VPN) Uchqunbek Работа с сетью в Delphi 1 16.03.2009 22:39
Vpn- Vista anton14 Железо 2 10.05.2008 14:04


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS