"Harald" <news10@-REMOVE-THIS-kroning.dk> skrev i en meddelelse
news:3ffda23e$0$27441$edfadb0f@dread16.news.tele.dk...
> "Monie Jacobsen" <post@sunwind.dk> skrev i en meddelelse
> news:3ffd7990$0$145$edfadb0f@dread11.news.tele.dk...
> > Hvordan får man denne ProgressBar1 til, at virke på hvor lang tid det
> tager
> > at sende en fil?
> > Benytter fastnet komponenter i Delphi 6
> >
> > 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 := 'Name';
> > SMTP.PostMessage.ToAddress.Text := //ToAddress modtager
> > SMTP.PostMessage.Body.Text := //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;
> >
> > Hvordan fås denne ProgressBar1 til, at virke på hvor lang tid det tager
at
> > sende en fil?
>
> Kender ikke komponenten (den er ikke i Delphi 7) men f.eks. Indy har nogle
> events der kan benyttes, man skal dog, så hut jeg kan se, stadig selv
> beregne hvor lang tid det vil tage men det er jo også til at gøre.
>
> Mvh
> HK
>
Hej Harald
Med ProgressBar1 forsøger jeg, at sætte lidt farve på, men det lykkes ikke,
har du en ide?
ProgressBar1/Events
procedure TForm1.ProgressBar1ContextPopup(Sender: TObject;
MousePos: TPoint; var Handled: Boolean);
begin
Windows.PostMessage(ProgressBar1.handle, WM_USER+9, 0,Longint(clRed ));
end;
Med venlig hilsen
Monie Jacobsen