為何我的GetHostName無法取出主機名稱 |
答題得分者是:RaynorPao
|
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 我用了winsock.pas的GetHostName,但確無法抓到主機名稱 不知GetHostName的正確用法為何?謝謝 function GetLocalHostName: string; var mStr:String; begin SetLength(result, 250); GetHostName(PChar(result), Length(result)); Result := String(PChar(result)); end;iamjsn 你好: 你好像少做了一些動作,請參考以下的連結
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
我剛查了一下help發現我是少call了
WSAStartup
help上面說,使用winsock前要先call WSAStartup //---------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
sData: TWSAData;
begin
if WSAStartup($101, sData) = SOCKET_ERROR then
begin
raise EException.Create( ' Error');
end;
memo1.text:=GetLocalHostName;
end;
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 我剛查了一下help發現我是少call了 WSAStartup help上面說,使用winsock前要先call WSAStartup //--------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var sData: TWSAData; begin if WSAStartup($101, sData) = SOCKET_ERROR then begin raise EException.Create( ' Error'); end; memo1.text:=GetLocalHostName; end;iamjsn 你好: 正確, 不過你最後要記得加這個
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |