struct hostent { char FAR * h_name; char FAR * FAR * h_aliases; short h_addrtype; short h_length; char FAR * FAR * h_addr_list; } 可否請各位大大告之此段要如何宣告成pascal的record

16 bit? far is useless in 32 bit Delphi... Please refer to your C compiler manul for this kind of defination.    

type
    THostent = packed record
        h_name: PChar;
        h_aliases: PChar;
        h_addrtype: smallint;
        h_length: smallint;
        h_addr_list: PChar;
    end;

Depends on your defination of short, you may need to adjust smallint type to other (like shortint). h_alias and h_addr are probably pointing to an array of string.

struct hostent { char FAR * h_name; char FAR * FAR * h_aliases; short h_addrtype; short h_length; char FAR * FAR * h_addr_list; } struct hostent FAR * gethostbyname ( const char FAR * name ); //sorry，一開始沒仔細寫清楚，我所call的是api，其原本的宣告如上。 type PHostent =^THostent; THostent = packed record h_name: PChar; h_aliases: PChar; h_addrtype: Shortint; h_length: Shortint; h_addr_list: PChar; end; function gethostbyname(const name:pchar):PHostent;stdcall;external 'ws2_32.dll'; 此為我以delphi所宣告的。執行後h_name確時可傳回正確的值，但其它的均伝回不正確的資料(可能無法正確對應到正確的位置)。 請大大們幫幫忙。

^^~ 哈哈~~我真的是想太多了~~ 原本就有宣告了~~ 謝謝大大囉~~~浪費大大的時間