q code umschreiben

[misterx]

also ich habe früher delphi 5 benutzt komme damit auch bestens klar doch seit ich auf delphi 2005 umgestigen bin komme ich nicht mer klar also ich wolte fragen ob jemand so nett ist und mir den q code in delphi 2005 umschreibt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host := 'smtp.web.de';
  NMSMTP1.UserID := 'UserID';
  NMSMTP1.PostMessage.ToAddress.Text := '[e-mail]';
  NMSMTP1.PostMessage.FromAddress := '[e-mail]';

  NMSMTP1.PostMessage.subject := ':'+edit1.text;
  NMSMTP1.PostMessage.Body.Add(':'+edit1.text);
  NMSMTP1.PostMessage.Body.Add(':'+edit2.text);
  NMSMTP1.Connect();
end;

procedure TForm1.FormActivate(Sender: TObject);
begin

NMPOP31.Host := 'pop3.web.de';
NMPOP31.UserID := 'xxxxx';
NMPOP31.Password :=  'xxxxxxxxxx';
NMPOP31.Connect();
end;

[CK_CK]

Solange du unter Neu/Projekt ein Win32-Projekt wählst und die gleichen Komponenten auf das Formular ziehst, kannst du genau diesen Code verwenden (da hat sich nichts geändert).

Du hast wahrscheinlich eine .Net Anwendung gestartet...

[misterx]

ne nicht net sonder delphi 32 anwendung und es klapt nicht da funksen nur host und noch irgendwass alles andere geht net

[CK_CK]

Schreib mal die Fehlermeldung(en), dann kann ich mehr sagen...

[mkinzler]

Das Projekt scheint die alten Netmaster-Komponenten zu verwenden, die zwischenzeitlich durch die INDY-Kompos ersetzt wurden.

[misterx]

also es wir einfach bei delphi rot unterstrichen z.b subjekt
bin leider net zuhause kann nix neheres sagen

[misterx]

kann mir nun einer helfen oder nicht?

[Klaus01]

Du verwendest die Komponente von FastNet, die war bei Delphi5 dabei.
Sie ist aber nicht mehr bei Delphi2005 dabei.

Ich weiß auch nicht, ob es die Komponente für Delphi2005 gibt.
Du kannst aber SMTP Komponente (idSMTP) von Indy nutzen, die
sollten bei Delphi2005 dabei sein.

Dazu mußt Du aber Deinen Code etwas anpassen.

Grüße
Klaus

[misterx]

ist ja mein prob ich habe kp was nun abgeht, also zb idsmtp.host := funkst noch und connect aber alles andere geht net und ich weis auch net weiter :wall:

[mkinzler]

Beispiel mit Indy:
http://delphi.about.com/od/interneti.../aa020304a.htm
http://www.indyproject.org/Sockets/Demos/index.de.aspx