Fastnet Pop3 og SMTP

Hved du hvordan man fås denne ProgressBar1 til, at virke på hvor lang tid det tager, at sende en fil fra ovenstående kodeeksempel?

ProgressBar1.Max := ProgressMax;
Progressbar1.position := Progress;

Det tror jeg ikke man kan. Der er ikke lige umiddelbar nogen event på TNMSMTP der viser status for en forsendelse. Det du kan gøre er at sætte en timer igang som opdatere ProgressBar f.eks. hvert sekund, eller for hver 100 millisekunder. Du starter timeren i f.eks. OnSendStart og stopper den i OnSuccess/OnFailure. Det er snyd, men på den anden side, så er det præcis samme teknisk internet explorer bruger når den loader html sider. Den gætter og intet andet.

Eksempel:

TForm1.FormCreate(Sender: Tobject);
begin
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;
  ProgressBar1.Step := 10;
  Timer1.Interval := 500; // Kør hver halve sekund
  Timer1.Enabled := False;
end;

TForm1.OnSendStart(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

TForm1.OnSuccess(Sender : TObject);
begin
  Timer1.Enabled := False;
end;

TForm1.TimerTimer(Sender : TObject);
begin
  ProgressBar1.StepIt;
end;

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej

Er der nogen her der har erfaring med Fastnet komponenterne i Delphi 6?
Og som vil give sin viden viderer?
Jeg er ikke skrab til engelsk og derfor vil det være til stor hjælp
hvis der kunne gives en/et kodeeksemple på henholdvis Pop3 og SMTP, jeg vil meget gerne lærern at bruge disse komponenter.

Her er i hvertfald et eksempel på SMTP:

var
  SMTP : TNMSMTP;
begin
  SMTP := TNMSMTP.Create(nil);
  try
    SMTP.Host                       := MailServer; // url til mailserver
    SMTP.PostMessage.FromAddress    := FraAdresse; // afsender
    SMTP.PostMessage.ReplyTo        := FraAdresse;
    SMTP.PostMessage.FromName       := FraAdresse;
    SMTP.PostMessage.ToAddress.Text := ToAddress; // modtager
    SMTP.PostMessage.Body.Text      := Body; // mail indhold
    SMTP.PostMessage.Subject        := Subject;  // emne
    // TStringList med absolute stier til de filer der evt. skal vedhæftes
    SMTP.PostMessage.Attachments.Add(Attachment);
    SMTP.Connect;
    SMTP.SendMail;
    SMTP.Disconnect;
  finally
    SMTP.Free;
  end;

Pop3 har jeg ingen erfaring med, men mon ikke det er nogenlunde ligeså nemt.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej

Er der nogen her der har erfaring med Fastnet komponenterne i Delphi 6?
Og som vil give sin viden viderer?
Jeg er ikke skrab til engelsk og derfor vil det være til stor hjælp
hvis der kunne gives en/et kodeeksemple på henholdvis Pop3 og SMTP, jeg vil meget gerne lærern at bruge disse komponenter.


Her er i hvertfald et eksempel på SMTP:

Kode 

var
  SMTP : TNMSMTP;
begin
  SMTP := TNMSMTP.Create(nil);
  try
    SMTP.Host                       := MailServer; // url til mailserver
    SMTP.PostMessage.FromAddress    := FraAdresse; // afsender
    SMTP.PostMessage.ReplyTo        := FraAdresse;
    SMTP.PostMessage.FromName       := FraAdresse;
    SMTP.PostMessage.ToAddress.Text := ToAddress; // modtager
    SMTP.PostMessage.Body.Text      := Body; // mail indhold
    SMTP.PostMessage.Subject        := Subject;  // emne
    // TStringList med absolute stier til de filer der evt. skal vedhæftes
    SMTP.PostMessage.Attachments.Add(Attachment);
    SMTP.Connect;
    SMTP.SendMail;
    SMTP.Disconnect;
  finally
    SMTP.Free;
  end;

Pop3 har jeg ingen erfaring med, men mon ikke det er nogenlunde ligeså nemt.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej Thomas Due

Mange tak!

Det var lige det der skulle til, nu kan jeg arbejde med denne komponent.

Hved du hvordan man fås denne ProgressBar1 til, at virke på
hvor lang tid det tager, at sende en fil fra ovenstående kodeeksempel?

ProgressBar1.Max := ProgressMax;
Progressbar1.position := Progress;

Med venlig hilse Og endnu engang mange tak!
Monie Jacobsen
energy@sunwind.dk

Hved du hvordan man fås denne ProgressBar1 til, at virke på hvor lang tid det tager, at sende en fil fra ovenstående kodeeksempel?

ProgressBar1.Max := ProgressMax;
Progressbar1.position := Progress;


Det tror jeg ikke man kan. Der er ikke lige umiddelbar nogen event på TNMSMTP der viser status for en forsendelse. Det du kan gøre er at sætte en timer igang som opdatere ProgressBar f.eks. hvert sekund, eller for hver 100 millisekunder. Du starter timeren i f.eks. OnSendStart og stopper den i OnSuccess/OnFailure. Det er snyd, men på den anden side, så er det præcis samme teknisk internet explorer bruger når den loader html sider. Den gætter og intet andet.

Eksempel:

Kode 

TForm1.FormCreate(Sender: Tobject);
begin
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;
  ProgressBar1.Step := 10;
  Timer1.Interval := 500; // Kør hver halve sekund
  Timer1.Enabled := False;
end;

TForm1.OnSendStart(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

TForm1.OnSuccess(Sender : TObject);
begin
  Timer1.Enabled := False;
end;

TForm1.TimerTimer(Sender : TObject);
begin
  ProgressBar1.StepIt;
end;

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej Thomas Due

Tak for dit eksempel.
Der vises ikke noget i ProgressBar1?

Min koder:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  SMTP : TNMSMTP;
begin
  SMTP := TNMSMTP.Create(nil);
  try
    SMTP.Host                       := '212.242.205.126'; //MailServer url til mailserver
    SMTP.PostMessage.FromAddress    := 'monie@sunwind.dk'; //FraAdresse afsender
    SMTP.PostMessage.ReplyTo        := 'FraAdresse';
    SMTP.PostMessage.FromName       := 'Monie Jacobsen';
    SMTP.PostMessage.ToAddress.Text := 'monie@sunwind.dk'; //ToAddress modtager
    SMTP.PostMessage.Body.Text      := 'Hej du der bag skaermen'; //Body mail indhold
    SMTP.PostMessage.Subject        := 'Emne:'; //Subject emne
    // TStringList med absolute stier til de filer der evt. skal vedhæftes
    SMTP.PostMessage.Attachments.Add('C:\\BookMap\\murpro.zip');
    SMTP.Connect;
    SMTP.SendMail;
    SMTP.Disconnect;
  finally
    SMTP.Free;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//SendMessage(ProgressBar1.handle, WM_USER+9, 0,Longint(RGB(255,0,0)));// virker ikke, forsøger at sætte farve på?
ProgressBar1.Min := 0;
ProgressBar1.Max := 100;
ProgressBar1.Step := 10;
Timer1.Interval := 500; // Kør hver halve sekund
Timer1.Enabled := False;
end;

procedure TForm1.NMSMTP1SendStart(Sender: TObject);
begin
Timer1.Enabled := True;
end;

procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
end;

end.

Med venlig hilsen
Monie Jacobsen

My mail adress is
post at sunwind dot dk

Hved du hvordan man fås denne ProgressBar1 til, at virke på hvor lang tid det tager, at sende en fil fra ovenstående kodeeksempel?

ProgressBar1.Max := ProgressMax;
Progressbar1.position := Progress;


Det tror jeg ikke man kan. Der er ikke lige umiddelbar nogen event på TNMSMTP der viser status for en forsendelse. Det du kan gøre er at sætte en timer igang som opdatere ProgressBar f.eks. hvert sekund, eller for hver 100 millisekunder. Du starter timeren i f.eks. OnSendStart og stopper den i OnSuccess/OnFailure. Det er snyd, men på den anden side, så er det præcis samme teknisk internet explorer bruger når den loader html sider. Den gætter og intet andet.

Eksempel:

Kode 

TForm1.FormCreate(Sender: Tobject);
begin
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;
  ProgressBar1.Step := 10;
  Timer1.Interval := 500; // Kør hver halve sekund
  Timer1.Enabled := False;
end;

TForm1.OnSendStart(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

TForm1.OnSuccess(Sender : TObject);
begin
  Timer1.Enabled := False;
end;

TForm1.TimerTimer(Sender : TObject);
begin
  ProgressBar1.StepIt;
end;

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej Thomas Due

Tak for dit eksempel.
Der vises ikke noget i ProgressBar1?

Min koder:

Kode 

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  SMTP : TNMSMTP;
begin
  SMTP := TNMSMTP.Create(nil);
  try
    SMTP.Host                       := '212.242.205.126'; //MailServer url til mailserver
    SMTP.PostMessage.FromAddress    := 'monie@sunwind.dk'; //FraAdresse afsender
    SMTP.PostMessage.ReplyTo        := 'FraAdresse';
    SMTP.PostMessage.FromName       := 'Monie Jacobsen';
    SMTP.PostMessage.ToAddress.Text := 'monie@sunwind.dk'; //ToAddress modtager
    SMTP.PostMessage.Body.Text      := 'Hej du der bag skaermen'; //Body mail indhold
    SMTP.PostMessage.Subject        := 'Emne:'; //Subject emne
    // TStringList med absolute stier til de filer der evt. skal vedhæftes
    SMTP.PostMessage.Attachments.Add('C:\\BookMap\\murpro.zip');
    SMTP.Connect;
    SMTP.SendMail;
    SMTP.Disconnect;
  finally
    SMTP.Free;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//SendMessage(ProgressBar1.handle, WM_USER+9, 0,Longint(RGB(255,0,0)));// virker ikke, forsøger at sætte farve på?
ProgressBar1.Min := 0;
ProgressBar1.Max := 100;
ProgressBar1.Step := 10;
Timer1.Interval := 500; // Kør hver halve sekund
Timer1.Enabled := False;
end;

procedure TForm1.NMSMTP1SendStart(Sender: TObject);
begin
Timer1.Enabled := True;
end;

procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
end;

end.

Med venlig hilsen
Monie Jacobsen

My mail adress is
post at sunwind dot dk

Hej Thomas Due

Har lige med forskellig forsøg, fået det til, at virke rimligt!
Tak for hjælpen.

Med venlig hilsen
Monie Jacobsen

My mail adress is
monie at sunwind dot dk