+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن تصميم فورم اتصل بنا (/showthread.php?tid=4065)
كيف يمكن تصميم فورم اتصل بنا - hadji.samir - 02-04-2012
السلام عليكم
كيف يمكن تصميم فورم اتصل بنا و تخويت على البرنامج من حيث رايك
وشكرا
كيف يمكن تصميم فورم اتصل بنا - مبرمج مبتدأ - 02-04-2012
أنا في العادة اقوم بإدراج فورم و أضع فيه اللازم ثم أضع أيقونة ( في الفورم 1) و أكتب فيها إتصل بنا و الكود المكتوب فيها هو :
[COLOR="Red"]Form3.show;
[/COLOR]
إفتراضا ان الفورم الذي أدرجته رقمه 3
[COLOR="Red"]Form3.show;
[/COLOR]
إفتراضا ان الفورم الذي أدرجته رقمه 3
كيف يمكن تصميم فورم اتصل بنا - hadji.samir - 03-04-2012
اعني الكود
كيف يمكن تصميم فورم اتصل بنا - onexite - 04-04-2012
سؤالك تم طرحه اكثر من مرة
اذا استخدمت برتكول smtp فهذا شيشكل تهديدا لحسابك سيتم معرفة كلمة المرور واسم المستخدم
لذلك من الافضل التشفير لاكن صدقني حتى التشفير لن ينفع
الطريقة الثانية استخدم هذه الطريقة بالرغم انها غير محمية من السبام كما يدعي صاحب الخدمة
http://www.delphi4arab.net/forum/showthread.php?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 باسم التسجيل خاصتك
بالتوفيق