لقد عدت

عودة مباركة اخي سيم والله ماقصرو الاخوة في المشاركة فترة غيابك

وخاصة الاخ محمد

الله يوفقك في الدراسة مع اني متاكد من عبقريتك والله يبارك ويزيد

اخي سيم لقد انتهيت تقريبا من برنامج لك عند التست حصلت على خطا في بعث الرسائل

503 5.0.0 need RCPT 5recipient)

لم اعرف اين هي المشكلة

لقد استعملت هدا الكود ولقد جلبته الله اعلم من احد مواضيعك الرائعة

procedure TForm1.Button1Click(Sender: TObject);

begin

NMSMTP1.Host := 'mail.host.com';

NMSMTP1.UserID := 'username';

NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := 'webmaster@swissdelphicenter.ch';

NMSMTP1.PostMessage.ToAddress.Text := 'user@host.com';

NMSMTP1.PostMessage.Body.Text := 'This is the message';

NMSMTP1.PostMessage.Subject := 'Mail subject';

NMSMTP1.SendMail;

showmessage('Mail sent !');

end;

***********دائما باتي *******

(f) (f)

اهلا وسهلاً بك اخي العزيز زكيري عبد العالي

ومشكور على ردك والحقيقة انك احرجتني :o

وبالنسبة للكود الي كتبته فأي برنامج تقصد انت !! وماهو العمل الذي تريده بالضبط

على العموم انا ماجربت الكود بس اتوقع انه بيانات البريد المراد الأتصال به خطأ

وممكن لو توضح مرادك وإن شاء الله اكون في مساعدتك

وتقبل اطيب تحياتي اخوك SUM

1-اخي العزيز سيم اني اريد ارسال بريد الكتروني بالدلفي

2- ارجوا ان توضح لى كيف ابعث ملف الى السرفر اى عكس التنزيل ftp

ارسال

اما المشكلة الاساسية والمهمة هي انه بقي 3ايام على الوقت المحدد

ومازلت في وضع البيانات التخطيطية لعمليات الاحصاء

اخي كي اوضح اكثر كما تعلم ان عندي قاعدة بيانات اكسس تحتوي علي عدة جداول واريد رسم بينات توضح مثلا منحني للمبيعات الدي وضح اي مادة تباع بنسبة 100% ....وماهي التي تباع 50% ..hgo

استعملت tchart في دللك لكن كيف اقرا الكوكيز بالدلفي لانني

وضعت المعلوات كلها في الكوكيز على شكل جدول

اي ثم اربط البيان بالجدول

وكيف دلك ولله انا محتار وبقصر الوقت زادة حيرة وكم ضننت ان الامور سهلة لانني سبقت العمل بالتشارت والان حصلت

:o :o

لقد اطلت عليك وها كل شيئ ولله يجازي كل من ساعدني في مشروعي هدا الدي تعلمت منه الكثيير

اهلا وسهلا اخي SUM بعودتك

وان شاء الله اتكون كل الامتحانات تمام معك وبالتوفيق يا رب

أهلا بالحبيب الغالي طال انتظارنا فمرحبا بقدومك

اشكر الجميع على ردودهم

بالنسبة لك اخي زكيري عبد العالي فأنتظرني كي ابحث في موضوع لأني انا الآن مو مركز (( ابغا اروح انام :D ))

واشكر الأخ محمد نسمان على جهوده المبذلوة في المنتدى والى الأمام

واشكر ايضاً الأخ المشرف

وآسف على التأخير ;)

وتقبلوا اطيب تحياتي اخوكم SUM

السلام عليكم

شكرا اخي سيم

اخواني بقي

1-كيف اقرأ الكوكيز بالدلفي ********مهم جدا جدا ******

2- ماهو امر المعاينة قبل الطباعة ل tchart

اما عن ارسال البريد فوجدة الخلل وهو يعمل 100%

وهدا الكود الدي وجدته خاص بارسال الملفات

begin

if opendialog1.Execute then

with NMFTP1 do

begin

host:='123.123.123.123';

port:=21;

userid:='abdelali

password:='pati'

connect;

upload(opendialog1.FileName,PATH+'/image');

disconnect ;

end;

(f) (f) (f) (f) (f) (f) (f)

اخي العزيز زكيري

بالنسبة لعملية قراءة الملفات والتعامل معها فهو تختلف صعوبته على صعوبة وتعقيد الملف

فطبعاً ملفات الكوكيز هي ملفات نصية فيكون الغالب في التعامل معها سهل وهذا على حسب احتوائها من المعلومات واذا كنت تريد ان تجلب معلوماتك من ملف كوكيز فيمكنك استخدام الدوال التالية ( Format - Copy - Delete - Pos ... ) لكي تستطيع الوصول الى البيانات بدقة

فطبعاً انا مااستخدمت ملفات الكوكيز ولا اعرف كيف يتم تنسيق المعلومات فيها ولكن سأضرك لك مثال يوضح لك كيفية الوصول الى المعلومات التي تقع بين السطور

وليكن مثالنا على لغة Html فمثلاً نريد ان نخرج نص العنوان مبين كلمتي

اليك هذا المثال :

<title>منتديات الفريق العربي للبرمجة</title>

فهنا في النص السابق نريد ان نخرج كلمة (( منتديات الفريق العربي للبرمجة )) من السطر السابق

فنقوم بأستخدام الكود التالي :

const s='منتديات الفريق العربي للبرمجة';
var Text:string;
begin
Text:=Copy(s,pos('',s)+Length(''),pos('',s)-Length(''));

وهذ فكرة بسيطة للوصول الى البيانات من بين السطور

على العموم اذا نجحت معك الطريقة السابقة فهذا جيد واذا لم تنجح فقم بطرح النص لملف الكوكيز الذي تريد قراءته هنا في المنتدى وحدد لنا اماكن المعلومات التي تريد الحصول عليها وإن شاء الله راح اقوم انا والأخوة بمساعدتك

وبالنسبة لل tchart فراجع ملف TeeChart في مجلد Demo في مجلد الدلفي

وتقبل اطيب تحياتي اخوك SUM

اخي سيم اشكرك على الرد

لكن قوة الدلفي لا يمكن ان تستغني عن شيئ مهم كالكوكيز وخاصتا في الدلفي 6

نعم الفكرة كانت في خاطري الا انني كنت انتضر في امر بسيط واعلم انه موجود مثل مثل عمليات الاسناد لقيم الكوكيز في الاسبي

لكن إن شاء الله اليوم ساجدها وان حدث العكس ساستعمل التحليل واشاء الله انجح فانا محترف string

اما عن tchart فصدقني ان بحثت عن دلك في جميع الفورمات الموجودة في المثال ولم اجد وكدلك الهلب فارجو من جميع الا خوة المساعدة ولن انسي جميلكم .

كما اطلب صدقة فدعائكم صدقة لانه كلمة طيبة .

اشكرك مرة اخرى

(f) (f)

اهلاً بك اخي العزيز زكيري

بالنسبة لملفات الكوكيز فالدلفي يتعامل معها كغيرها من الملفات

ولكن ماهي اهمية ملفات الكويكز فهي ليس لها اهمية سوى في الأنترنت فقط :D ولكن اذا كنت تريد ان تستخدمها في برمجة ال ASP عبر الدلفي فهنا سأقول لك انا لااعلم لأني لم استخدم برمجة ال ASP في الدلفي حتى الآن

وبالنسبة لل TChart فأنا هنا اعتذر لأني لم استخدم ال TChart من قبل ولكن هناك طريقة وهي انك تقوم بصنع المعاينة بنفسك :) دون الحاجة الى استدعاء المعاينة من نفس ال TChart ولكن انظر الى آراء الأخوة الذين لديهم خبرة في ال TChart

وتقبل اطيب تحياتي اخوك SUM

نعم اخي سيم اريد ان اتحصل على بعض المعطيات من قاعدة موجودة في السرفر لكن كما تعلم اني فشلت في الاتصال عن بعد سواء ب الانترباز او بالديكوم ولدلك جائتني فكرة ارسال الكوكي الى الجهاز المتصل بالسرفر وهدا الكوكي هو على شكل جدول دوا حقلين ومن ثم ارسم به البيان

وجدت هدا لكن مازالت المشكلة ارجوا المساعدة وهي الاخيرة في هدا المشروع الدي ارهقني ليس بالعمل بل بالبحث عن الحلول

var

form1: TForm1;

txt: TStringList;

Request: TWebRequest;

Response: TWebResponse;

implementation{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);

begin

txt:= TStringList.Create;

txt.Clear;

txt.Append('coki=10');

Response.SetCookieField(txt,'','localhost/ad',-1,false);

txt.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if Request.CookieFields.Values['coki']'' then

showmessage(Request.CookieFields.Values['Coki'])

else

showmessage('cookies is empty');

end;

end.

اشكركم جميعا (f)