Ich möchte gerne ein prog schreiben, das guckt, ob ich neue e-mails hab. ich habs mit diesem code probiert, aber es klappt nicht. so kommt fehler #10061 (verb. abgeleht, server, userid & pwd sind korrekt ...), wenn ich host, port, userid und pwd in der funktion definiere, kommt irgendwas mit 'missing argument'.
die "rote" Zeile ist bei beiden Fehlern die unter dem "connect;" in der funktion ...
Danke schonmal im voraus
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdIMAP4, ExtCtrls, StdCtrls;
type
TForm1 =
class(TForm)
Timer1: TTimer;
IdIMAP41: TIdIMAP4;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
items:
array of TIdIMAP4StatusDataItem;
implementation
{$R *.dfm}
procedure CheckMail(Host :
string; UserID :
string; Password :
string);
begin
with TIdIMAP4.Create(
nil)
do try
connect;
SetLength(items, 1);
items[0] := mdUnseen;
try
SelectMailBox (UserID);
finally
disconnect;
end;
finally
free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CheckMail ('
imap.web.de', '
xxxxxxx', '
xxxxxxxxxx');
end;
end.