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

[misterx]

und geht net alles funksnet ahhhhhhhhhhhhhhh!!!!!!!!!!! ich raste bald aus
das bild zeigt die fehler ....
sry bin voll besoffen ...
wen ich was übersehen habe sagt bescheid also ich steige bald wieder auf delphi 5 um wen es so weiter geht

[mkinzler]

Hast du den die Form nachgenaut und die Komponenten genauso benannt?

[Daniel G]

Zitat:

Zitat von misterx

sry bin voll besoffen ...

:roll:

[alcaeus]

Moin misterx,

wenn ich mir den Screenshot so ansehe, dann sieht das so aus, als haettest du den Code irgendwo kopiert. Komm schon, wenn du Code kopierst, dann solltest du wenigstens imstande sein, diesen richtig in dein Projekt zu integrieren :roll:
Gibt es die Komponenten die verwendet werden? Sind sie richtig benannt? Brauchst du sie ueberhaupt?

Und zum besoffen sag ich nichts mehr...

Greetz
alcaeus

[Klaus01]

Dein FastNet Code:

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;

Dein Code mit Indy:

Delphi-Quellcode:

procedure TMailerForm.btnSendMailClick(Sender: TObject);
begin
  StatusMemo.Clear;

  //setup SMTP
  SMTP1.Host := 'smtp.web.de';
  SMTP1.Port := 25;

  //setup mail message
  MailMessage.From.Address := '[e-mail]'
  MailMessage.Recipients.EMailAddresses := 'xxxxx@web,de';

  MailMessage.Subject := edit1.text;;  // MailMessage kommt von TidMessage
  MailMessage.Body.Text := memo1.Text;  // für die Nachricht vielleicht besser ein Memo nehmen


  //send mail
  try
    try
      SMTP1.Connect(1000);
      SMTP1.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP1.Connected then 
      SMTP1.Disconnect;
  end;

end; (* btnSendMail Click *)

wenn Dein dicker Schädel abgeklungen ist und Du wieder durch normal breite Türen passt,
kannst Du dir das ja mal zu Gemühte führen.
Und es wäre auch gut, wenn Dir schon jemand links schickt diese auch anzuschauen und
versuchen zu verstehen. Bei diesem Link: http://delphi.about.com/od/interneti.../aa020304a.htm
ist sogar ein Beispielprojekt zum download dabei.

Grüße
Klaus

Grüße
Klaus

[Daniel G]

Zitat:

Zitat von Klaus01

wenn Dein dicker Schädel abgeklungen ist und Du wieder durch normal breite Türen passt,
kannst Du dir das ja mal zu Gemühte führen.

Vielleicht hätte er sich seinen Post nochmal überlegen sollen. Nüchtern wär' ihm das bestimmt nicht passiert:

Gibt es die Delphi 2005 Architect Trial zum Download? Wenn nicht, hat er jetzt ein Problem. :lol: