delphi4arab منتديات دلفي للعرب
مشكله في كود ارسال - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكله في كود ارسال (/showthread.php?tid=2073)

مشكله في كود ارسال - سيل الجليد - 03-06-2010

السلام عليكم

لدي خلل بسيط جداً في هذا الكود كود الارسال
اذا لم تظهر الكتابه في memo هذا هي:
{يتم عرض التقرير في هذي الصفحه بعد ان تتم عمليه البحث في الاعلى
ولمعرفه التقرير المراد عرضه وارساله اضغط على الزر الي باسفل}
ولم تكن لدي اي معلومه عنه الان البرانامج اصبح كامل وجاهز

مشكله في كود ارسال - kachwahed - 03-06-2010

وعليكم السلام ورحمة الله
لم تذكر الخلل !
مثال للتوجيه:
PHP كود :
IdIPWatch1: TIdIPWatch;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    IdAntiFreeze1: TIdAntiFreeze;    
//...
procedure TMainForm.Button1Click(Sender: TObject);
begin
   if idipwatch1.LocalIP = '127.0.0.1' then
    begin
     MessageBoxA(handle, 'Not connected','',MB_ICONINFORMATION);
     exit;
    end;

   IdSMTP1.Connect(5000);
   idmessage1.From.Text := edit5.text;
   idmessage1.Recipients.EMailAddresses := edit2.text;

   idmessage1.Subject := 'Sebject';
   idmessage1.Body.Text := 'Text...';

   if fileexists(edit1.Text) then TIdAttachment.Create(idmessage1.MessageParts,edit1.Text);

   IdSMTP1.Send(idmessage1);

   idsmtp1.Disconnect;
   MessageBoxA(handle,'ok','',MB_ICONINFORMATION);
 end; 
بالتوفيق.

مشكله في كود ارسال - سيل الجليد - 03-06-2010

تم ايجاد المكونات الي كتبتها لاكن يظهر خطأ عند الظغط على زر sent
PHP كود :
idsmtp1.Disconnect; 
هذا الخطأ بعد عمليه الاتصال مع اني مثبت برنامج YPOP للياهو
والارسال من الياهو الى الياهو
[صورة: aade.jpg]