Перейти к содержимому


- - - - -

Delhpi 7 Indy


  • Авторизуйтесь для ответа в теме
В этой теме нет ответов

#1 makekz

makekz
  • Новичок

  • Новичок
  • 1 сообщений

Отправлено 20.01.2009 - 16:10

Помогите прошу Вас, люди добрые. Я пытаюсь подключится к прокси серверу и отправить почту. Но в свойствах письма после отправки мой IP не меняется! Что делать?
Вот код. Кто знает? Может я что-то делаю не то?
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, StdCtrls, IdSocks, IdIOHandler,
  IdIOHandlerSocket, Buttons, Mask, IdHTTP, IdIntercept;
type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    edHost: TEdit;
    edPort: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    edFrom: TEdit;
    edTO: TEdit;
    edSubj: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    edProxyHost: TEdit;
    edProxyPort: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    meBody: TMemo;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label8: TLabel;
    edUsername: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    edPass: TMaskEdit;
    IdHTTP1: TIdHTTP;
    Label11: TLabel;
    IdIOHandlerSocket1: TIdIOHandlerSocket;
    IdSocksInfo1: TIdSocksInfo;
    Edit1: TEdit;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Source: TMemoryStream;
  Response: TStringStream;
Data:TStringList;
    Page:String;
begin
IdSocksInfo1.Host:=edProxyHost.Text;
IdSocksInfo1.Port:=StrToInt(edProxyPort.Text);
idHTTP1.Host:='www.some.com';
idHTTP1.Port:=StrtoInt('80');
idHTTP1.ProxyParams.ProxyServer := edProxyHost.Text;
idHTTP1.ProxyParams.ProxyPort := StrToInt(edProxyPort.Text);
IdSMTP1.Host := edHost.Text;
IdSMTP1.Port := StrToInt(edPort.Text);
IdSMTP1.Username:=edUsername.Text;
IdSMTP1.Password:=edPass.Text;
with IdMessage1 do
   begin
     From.Text := edFrom.Text;
     Recipients.EMailAddresses := edTO.Text;
     Subject := edSubj.Text;
     Body.Text := meBody.Text;
   end;


IdHTTP1.Connect();
if IdHTTP1.Connected then
  begin
IdHTTP1.Request.ProxyConnection:='keep-alive';

IdIOHandlerSocket1.Close;
     IdSMTP1.Connect();
     IdSMTP1.Send(IdMessage1);

IdHTTP1.Disconnect;
end;
if IdSMTP1.Connected then
     begin
       ShowMessage('Otpravleno!!!');
     IdHTTP1.Disconnect;
       IdSmTP1.Disconnect;
IdIOHandlerSocket1.Close;

end;
end;


procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Close;
end;
end.




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 скрытых пользователей