02-04-2012, 10:09 PM
02-04-2012, 11:17 PM
03-04-2012, 09:41 PM
04-04-2012, 01:06 PM
سؤالك تم طرحه اكثر من مرة
اذا استخدمت برتكول smtp فهذا شيشكل تهديدا لحسابك سيتم معرفة كلمة المرور واسم المستخدم
لذلك من الافضل التشفير لاكن صدقني حتى التشفير لن ينفع
الطريقة الثانية استخدم هذه الطريقة بالرغم انها غير محمية من السبام كما يدعي صاحب الخدمة
http://www.delphi4arab.net/forum/showthr...p?tid=6826
لا تنسى تغيير userdz باسم التسجيل خاصتك
بالتوفيق
اذا استخدمت برتكول smtp فهذا شيشكل تهديدا لحسابك سيتم معرفة كلمة المرور واسم المستخدم
لذلك من الافضل التشفير لاكن صدقني حتى التشفير لن ينفع
الطريقة الثانية استخدم هذه الطريقة بالرغم انها غير محمية من السبام كما يدعي صاحب الخدمة
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 باسم التسجيل خاصتك
بالتوفيق