چگونه میتوانم با کد نویسی نام کامیوتر را بازیابی کنم؟

[arezoo_khoshrah]

من یه برنامه نوشتم که میخوام بخش نام سرور در connection sting ارتباط به دیتابیس رو به صورت پارامتری بگیرم، یعنی میخوام ببینم چطوری و با چه دستوری در دلفی میتونم نام کامپیوتر یا نام سرور رو با کدنویسی بگیرم ، کسی میتونه کمکم کنه؟

[Hsimple11]

برای بدست آوردن نام کامپیوتر بصورت Local این Function را استفاده کنید :


function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := StrPas(buffer);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetComputerName);
end;

[اصغر (پآچ)]

سلام دوست من

برای ارتباط به صورت Local هم میشه از دستور زیر استفاده کرد:

ADOTable1.Connection.DefaultDatabase;


اما برای توی شبکه باید یه فرم درست کنی که خود کاربر هم اسم کامپیوتر سرور یا آی پی اون و هم اسم کاربری و کلمه عبور برای دسترسی به دیتابیس رو وارد کنه.

موفق و موید باشی

[arezoo_khoshrah]

خیلی ممنونم دوست عزیزم. اگر بخوام اسم کامپیوتر سرور رو بازیابی کنم چطور؟ این دستور کار میکنه در اون مورد ؟

[Hsimple11]

خیلی ممنونم دوست عزیزم. اگر بخوام اسم کامپیوتر سرور رو بازیابی کنم چطور؟ این دستور کار میکنه در اون مورد ؟
Get a list of computers in a network (http://www.swissdelphicenter.ch/en/showcode.php?id=2177)

obtain the computer name from IP address (http://www.swissdelphicenter.ch/en/showcode.php?id=170)