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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

icq: 433668986
По умолчанию 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Реализация выхода в Интернет через 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


09:08.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.