谁能给我一个局域网内，通过对方的机器名传送文件的例子。(不用ip)，谢谢

Question

你老人家有时间用IPX协议传输吧，
用NetBios也可以，M$的网上邻居就是用NetBios的。
在Delphi下有NetBios的软件，不过自己得把文件分解成几十K传输。

Answer 1

你可以先将机器名传换IP地址，然后再用IP地址来传送；下面函数可实现机器名到IP地址的转换.
使用Socket的API函数
struct hostent FAR * gethostbyname(
const char FAR * name  //指向待解析机器名的指针
);fucntion NameToIP(CoName:string):string;
var
  WSAData:TWSAData;
  HostEnt:PhostEnt;
  sComputerName,sIp:string;
begin
  sComputerName:=CoName;
  WSAStartup(2,WSAData);
  //初始化Winsock动态链接库
  Host:=gethostbyname(Pchar(sComputerName));
  //调用函数得到主机信息
  if HostEnt<>nil then
  begin 
    with HostEnt^do
      sIp:=Format('%d.%d.%d.%d',[Byte(h_addr^[0],Byte(h_ddr^[1]),Byte(h_addr^   [2],Byte(h_addr^[3])]);
  end;
  WSACleanup;
  //释放资源
  Result:=sIp;
end;

Answer 2

这句写错了不好这意思^_^
sIp:=Format('%d.%d.%d.%d',[Byte(h_addr^[0]),Byte(h_ddr^[1]),Byte(h_addr^  [2]),Byte(h_addr^[3])]);