كيف يمكن تصميم فورم اتصل بنا
#4
سؤالك تم طرحه اكثر من مرة
اذا استخدمت برتكول smtp فهذا شيشكل تهديدا لحسابك سيتم معرفة كلمة المرور واسم المستخدم
لذلك من الافضل التشفير لاكن صدقني حتى التشفير لن ينفع
الطريقة الثانية استخدم هذه الطريقة بالرغم انها غير محمية من السبام كما يدعي صاحب الخدمة Big Grin
http://www.delphi4arab.net/forum/showthr...p?tid=6826
PHP كود :
procedure TArabform.btn1Click(Sender: TObject);
begin
form2
.ShowModal;
end;

procedure TArabform.btn2Click(Sender: TObject);
var 
email:TStringList;
begin

  email
:=TStringList.Create;

try
idhtp1.Request.UserAgent:='Mozilla/5.0 (X11; U; Linux amd64; rv:5.0) Gecko/20100101 Firefox/5.0 (Debian)'  ;

email.Add('Form='+edt1.Text) ;
email.Add('Subject='+edt2.Text);
email.Add('Message_Mail='+smemo1.Text);
email.Add('To=userdz');
try
idhtp1.Post('http://userdz.arabform.com/mail.php?id=userdz',email) ;
except
  on E
: EIdHTTPProtocolException do
   
stsbr1.Panels[0].text:=e.Message;
end;
  
stsbr1.Panels[0].text:=idhtp1.ResponseText;
finally
  
email.Free
end
;
end; 

لا تنسى تغيير userdz باسم التسجيل خاصتك
بالتوفيق
الرد


الردود في هذا الموضوع
كيف يمكن تصميم فورم اتصل بنا - بواسطة onexite - 04-04-2012, 01:06 PM

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم