پیدا کردن نام کامپیوتری که برنامه را اجرا کرده

[pooyeshpajooh]

با سلام به دوستان

چه جوری می شه نام کامپیوتری که برنامه رو اجرا کرده در شبکه به دست اورد و چه جوری می شه به اون کامپیوتر پیام ارسال کرد؟

[m-khorsandi]

با یه کم جستجو :
تشخیص کامپیوترهای شبکه و فرستادن پیام (http://www.barnamenevis.org/forum/showthread.php?t=42760)
تبدیل IP به Name (http://www.barnamenevis.org/forum/showthread.php?t=20593)
IP Address و ارسال پیام (http://www.barnamenevis.org/forum/showthread.php?t=2043)

[SH.Daneshvar]

بدست اوردن نام کامپیوتر رو با استفاده از API
GetComputerName
که پارامتر اول یه string میگیره که نام رو که بدست آورد میریزه توش.
پارامتر دوم شما حداکثر طول Buffer رو بهش میدی و اون طول نام کامپیوتر رو بر میکردونه.

[davoodmz]

با سلام
آقای دانشور لطفاً یک کمی بیشتر توضیح دهید
اگر امکان دارد با کد
باتشکر
داود

[SH.Daneshvar]

چشم شنبه چون الان توی شرکت نیستم.
شنبه یه برنامه با سورس در اختیارتون میزارم

[SH.Daneshvar]

اینم تابعی که نام Computer رو بر میگردونه :


function GetComputerNameX(): string;
var
Size: Cardinal;
begin
Size := 256;

SetLength(Result, Size);
GetComputerName(PChar(Result), Size);
SetLength(Result, Size);
end;