به روایت افسانهها روزی شیطان همه جا جار زد كه قصد دارد از كار خود دست بكشد و وسایلش را با تخفیف مناسب به فروش بگذارد. او ابزارهای خود را به شكل چشمگیری به نمایش گذاشت. این وسایل شامل خودپرستی، شهوت، نفرت، خشم، آز، حسادت، قدرتطلبی و دیگر شرارتها بود. ولی در میان آنها یكی كه بسیار كهنه و مستعمل به نظر میرسید، بهای گرانی داشت و شیطان حاضر نبود آن را ارزان بفروشد.
كسی از او پرسید: این وسیله چیست؟
شیطان پاسخ داد: این نومیدی و افسردگیست
آن مرد با حیرت گفت: چرا این قدر گران است؟
شیطان با همان لبخند مرموزش پاسخ داد: چون این مؤثرترین وسیلة من است. هرگاه سایر ابزارم بیاثر میشوند، فقط با این وسیله میتوانم در قلب انسانها رخنه كنم و كاری را به انجام برسانم. اگر فقط موفق شوم كسی را به احساس نومیدی، دلسردی و اندوه وا دارم، میتوانم با او هر آنچه میخواهم بكنم.. من این وسیله را در مورد تمامی انسانها به كار بردهام. به همین دلیل این قدر كهنه است
|+| نوشته شده توسط
محمد جاهد در جمعه 23 مرداد1388
|
سلام
یه تابع برای بدست آوردن نام کامپیوتری که برنامه داره اجرا میشه
میتونید از این تابع در ConnectionString برای بدست آوردن WorkStationID استفاده کنید
function ComputerName:string;
var
BufsSIze:DWORD;
CName : array [0..255] of char;
begin
BufsSIze:=255;
GetComputerName(CName,BufsSIze);
Result:= CName;
end;
|+| نوشته شده توسط
محمد جاهد در جمعه 28 فروردین1388
|
با توجه به درخواست دوستان برای سوکت پروگرمینگ چون مطلب قبلی زیاد کامل نبود یه مقاله کامل و ساده دارم آماده می کنم که بزودی در همین وبلاگ قرار میدهم. در این مقاله آموزشی کار با سوکت با استفاده از ابزارهای TServerSocket,TClientSocket گفته شده که برای مثال به برنامه برای چت رو با هم طراحی میکنیم . بعد از اون می خوام یه مقاله هم درباره ارسال و دریافت اطلاعات بصورت باینری (File,Image,...) بنویسم و با برنامه مثال همینجا قرار بدم. امیدوارم خوشتون بیاد و بتونه کمکتون کنه
راستی نظر یادتون نره، تا منم سریعتر آمادش میکنم آخه باید ببینم کسی هست که بخواد یا نه
موفق باشید
یا حق
|+| نوشته شده توسط
محمد جاهد در دوشنبه 15 مهر1387
|
