Printable View
سلام دوستان.
فرض كنيد برنامه اي نوشتيم كه تحت شبكه كار ميكند. به همين دليل بايد بتواند با كامپيوتر خاصي (سرور) ارتباط بر قرار كند.
اگر پسورد كامپيوتري كه به عنوان سرور انتخاب شده در ويندوز ذخيره نشده باشد، برنامه نميتواند متصل شود.
از چه طريقي ميتوان در خود برنامه يوزر و پسورد كامپيوتر سرور رو توي خود برنامه قرار داد و از طريق اون كانكت شد.
ويا راهي وجود دارد كه بدون دانستن يوزر و پسورد به كامپيوتر مقصد متصل شد؟
با سلام
من زیاد با برنامه های سرور اشنا نیستم اما برای مشکل شما یک راه بلدم.
میتونید کد connection سرور را در یک بلوک try ... exept قرار دهید و یک فرم نیز طراحی کنید که زمانی که پسورد کامپیوتر سرور درست نبود ان فرم باز شده و پسورد را از شما بپرسد.
یک برنامه تحت شبکه دیدم که زمانی نمی توانست به کامپیوتر سرور وصل شود یک فرم باز میکرد ور از کاربر درخواست پسورد و همچنین نام یا ip کامپیوتر سرور را میپرسید و برنامه نویس یک قسمت به این فرم افزوده بود که می توانست اطلاعات را از یک فایل بگیرد و کاربر در صورتی که با سرور اشنایی نداشت می توانست با برنامه نویس تماس بگیرد و ان فایل را دریافت کند (فکر کنم از فایل ini استفاده کرده بود).
امیدوارم این مطالب مورد استفاده شما قرار بگیرد
با تشکر
ممنون از توضیحاتتون. ولی دقیقا مشکل همینجاست که اون یوزر و 1سورد رو چزوری باید توی کامپیوتر با استفاده از سیستم عامل عمل کنم. فکر میکنم که احتمالا یک تابع API باید داشته باشه.
با سلام
مرد مباح عزیز من در سطحی نیستم که شما را راهنمایی کنم.
به هر حال شما استاد دلفی هستید.
اما شاید لینک زیر به کارت بیاد
با تشکرکد:http://delphi.about.com/od/networking/l/aa103100a.htm
ممنونم دوست عزیز.
خیر من استاد دلفی نیستم. شاید چون زمان بیشتری کار کردم 4 تا چیز بیشتر باهاش برخورد کردم.
ممنون.
توی همین سایت چندتا چیز مشابه با کارم پیدا کرده بودم. ولی دقیقا نمیتونست کارم رو انجام بده.
این چیزی هم که شما معرفی کردید یک یابنده IP هست.
به هر حال خیلی ممنون از پیگیریت.
با سلام . البته من اینو جهت اطلاع می گم و نمی دونم به کار شما میاد یا نه . من یه برنامه تحت شبکه نوشتم و برای کانکت شدنش با سرور یوزر و پسورد رو تو یه فایل Text نوشتم و کنار فایل Exe گزاشتم که هر سری میره و از اون چک میکنه و کانکت میشه .
هادی جان. چطوری این کار رو کردی.
اگه بتونی کدش رو بهم بدی عالی میشه.
ببخشید دیر شد چند روزی نبودم . این کدی که من استفاده کردم امیدوارم به دردت بخوره .نقل قول:
این جاهایی که نا خواناست پیغام های فارسی نوشته شده که البته مهم هم نیست .کد:with SQLSessionTest do
try
if EdtMode.Text = 'auserver' then
ConnectString := 'Provider=SQLOLEDB.1;User ID='+EdtUserName.Text+';Password='+EdtuserPass.Text+';Data Source='+EdtServer_IP.Text+';Initial Catalog='+EdtDatabase_Name.Text+';Persist Security Info=True'
else
if EdtServer_IP.Text = '' then
ConnectString := 'Provider=SQLOLEDB.1;Initial Catalog='+EdtDatabase_Name.Text+';Integrated Security=SSPI'
else
ConnectString := 'Provider=SQLOLEDB.1;Data Source='+EdtServer_IP.Text+';Initial Catalog='+EdtDatabase_Name.Text+';Integrated Security=SSPI';
Connected := True;
ShowMessage('ÇÑÊÈÇØ Èå ÏÑÓÊí ÈÑÞÑÇÑ ÔÏ');
CString := ConnectString;
BtnSetting.Enabled := true;
except
ShowMessage('ÇãßÇä ÈÑÞÑÇÑí ÇÑÊÈÇØ ÈÇ ÓÑæÑ æÌæÏ äÏÇÑÏ. ÈÇ ãÏíÑ ÓíÓÊã ÊãÇÓ ÈíÑíÏ');
end;