Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2010, 20: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 в 20:52.
xakkkkker вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Реализация выхода в Интернет через 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 21:39
Vpn- Vista anton14 Компьютерное железо 2 10.05.2008 14:04