谁能把下面的这段C代码译成DELPHI7的代码？？？！ (100分)

jxc163 · 2003-11-01

向局域网电脑的1434端口发送02， 03， 04 ，以搜索网内的数据库服务器。 （这里不用的内容去除，原贴见：http://www.delphibbs.com/delphibbs/dispq.asp?LID=2057477） #include "stdafx.h" #include <string.h> #include <stdio.h> #include <winsock2.h> void decode_recv (char *buf, int size) {     int index;     int counter = 0;     for (index = 3; index < size; index++)//-----这个循环为什么从3开始     {         if ((buf[index] == ';') && (buf[index+1] != ';'))         {               //Look for a semi-colon and check for end of record (;

if ((counter % 2) == 0)             {                 printf(":");                 counter++;             }             else             {                 printf("/n");                 counter++;             }         }         else         {             if (buf[index] != ';')             {                   // If an end of record (;

, then double-space for next instance                 printf("%c",buf[index]);             }             else             {                 printf("/n");             }         }     }           printf("/n"); } void listen (void* v) {     static const unsigned int buffersize = 64000;     static char buffer [buffersize];     SOCKET s = (SOCKET)v;  -------这句是什么意思？     for (;

------这个循环怎么会这样呢？     {         struct sockaddr_in udpfrom;         int udpfromlen = sizeof(udpfrom);         int n = recvfrom(s, buffer, sizeof(buffer), 0, (struct sockaddr *)&udpfrom, &udpfromlen);         int e = WSAGetLastError();                 if (n > 0 && e == 0)             decode_recv(buffer, n);     } } int main(int argc, char* argv[]) {     WSADATA WSAData;     SOCKET sock;     SOCKADDR_IN addr_in;     char buf[5]={'/x02'}; ----这句是什么意思？     HANDLE listener;     if (argc<2)     {         return false;     }     if (WSAStartup(MAKEWORD(2,0),&WSAData)!=0)     {         printf("WSAStartup error.Error:%d/n",WSAGetLastError());         return false;     }     if ((sock=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP))==INVALID_SOCKET)     {         printf("Socket failed.Error:%d/n",WSAGetLastError());         return false;     }     addr_in.sin_family=AF_INET;     addr_in.sin_port=htons(1434);     addr_in.sin_addr.S_un.S_addr=inet_addr(argv[1]);     const int SNDBUF = 0;     const int TCPNODELAY = true;     const int BROADCAST = true;         if (setsockopt(sock, SOL_SOCKET, SO_SNDBUF, (const char*)&SNDBUF, sizeof(SNDBUF))==SOCKET_ERROR)     {         printf("Set SO_SNDBUF failed.Error:%d",WSAGetLastError());         return false;     }     if (setsockopt(sock, SOL_SOCKET, TCP_NODELAY, (const char*)&TCPNODELAY, sizeof(TCPNODELAY))==SOCKET_ERROR)     {         printf("Set TCP_NODELAY failed.Error:%d",WSAGetLastError());         return false;     }     if (setsockopt(sock, SOL_SOCKET, SO_BROADCAST, (const char*)&BROADCAST, sizeof(BROADCAST))==SOCKET_ERROR)     {         printf("Set SO_BROADCAST failed.Error:%d",WSAGetLastError());         return false;     }     listener = (HANDLE) _beginthread(listen, 0, (void*)sock); //    e = sendto(s, "/08", 1, 0,(sockaddr*) &hostaddr, sizeof(hostaddr));     if (sendto(sock, buf, sizeof(buf), 0,(sockaddr*) &addr_in, sizeof(addr_in))==SOCKET_ERROR)     {         printf("Send failed.Error:%d/n",WSAGetLastError());         return false;     }     printf("Listening..../n/n");     // wait a little while for listener thread     WaitForSingleObject(listener, 5000);     WSACleanup();     printf("SQLPing Complete./n");     return 0; }

app2001 · 2003-11-01

这个贴子你看看，有个法子很新颖，你试试看 http://www.delphibbs.com/delphibbs/dispq.asp?LID=2057477

jxc163 · 2003-11-04

没有人知道吗？

icegirl914 · 2003-11-04

太长了，看起来太累了

lich · 2003-11-05

建议你用Sniffer看一下网络数据包就明白了 for (index = 3; index < size; index++)//表示前几个字节没有用不用管它 SOCKET s = (SOCKET)v; 表示强制类型转换 for (;

------表示开始一个死循环，没有循环变量，没有结束条件 char buf[5]={'/x02'}; 表示一个字符串数组，用一个字符串初始化 /x02表示 Asc码是0x02的字符

jxc163 · 2003-11-05

lick老兄，可以帮我看看这个delphi过程，要怎么才能实现与上面的C一样的功能呢？我是把返回的字符串加到一个TStrings中的。 unit GetServer; interface uses Windows, Messages, SysUtils, Variants, Classes, Winsock, Dialogs, Forms, Controls; const   Sql_Port = 1434;   Procedure GetSQLServer(var L : TStrings);stdcall; function GetLocalIP : string;stdcall; implementation //取本机的IP function GetLocalIP : string; type   TaPInAddr = array [0..10] of PInAddr;   PaPInAddr = ^TaPInAddr; var   phe  : PHostEnt;   pptr : PaPInAddr;   Buffer : array [0..63] of char;   I    : Integer;   GInitData      : TWSADATA; begin   WSAStartup($2, GInitData);   Result := '';   GetHostName(Buffer, SizeOf(Buffer));   phe :=GetHostByName(buffer);   if phe = nil then Exit;   pptr := PaPInAddr(Phe^.h_addr_list);   I := 0;   while pptr^ <> nil do begin     result:=StrPas(inet_ntoa(pptr^^));     Inc(I);   end;   WSACleanup; end; procedure GetSqlServer(var L : TStrings); type   PParam = ^RParam;   RParam = Record     L : TStrings;     V : TSocket;   end; var   Ws : WsaData;   IP : String;//保存本机的IP地址   Sock : TSocket;//保存Socket套接字   Addr_In : SockAddr_in;   SndBuf : PChar;   NoDelay : PChar;   Broadcast : PChar;   Listener : THandle; 　P : PParam;   Buf : Array [0..5] of Char;   procedure Decode_Recv(var L : TStrings; Buf : Pchar; Size : Integer);   var     Index,Counter : Integer;     S : String;   begin     Counter := 0;     S := '';     for Index :=0 to Size do     begin       if (Buf[index] = ';') and (Buf[index+1] <> ';') then       begin         if Counter div 2 = 0 then         begin           S := S + ':';           Inc(Counter);         end         else         begin           S := S + #10;           Inc(Counter);         end;       end       else       begin         if Buf[Index] <> ';' then           S := S + Buf[Index]         else           S := S + #10;       end;     end;     if (S = '') and (S <> #10) then       L.Add(S);   end;   procedure Listen(var L : TStrings; V : TSocket);   const     BufSize = 64000;   var     Buf : Array [0..BufSize] of Char;     S : TSocket;     UdpFrom : SockAddr_in;     UdpFromLen : Integer;     N,err:Integer;     I : Integer;   begin     S := V;     I := 0;     repeat     begin       UdpFromLen := SizeOf(UdpFrom);       N := RecvFrom(S,Buf,BufSize,0,UdpFrom,UdpFromLen);       Err := WSAGetLastError();       if (N >0) and (Err = 0) then       begin         Decode_Recv(L,Buf,N);       end;       if I = 254 then I := 0;     end;     until I >255;   end; begin   if WsaStartUp(MakeWord(2,0),Ws) <> 0 then   begin     MessageBox(Application.Handle,PChar('WsaStartUp Error! Error: '+ IntToStr(WSAGetLastError)),'错误',MB_ICONERROR);     Exit;   end;   Sock := Socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);   if Sock = INVALID_SOCKET then   begin     MessageBox(Application.Handle,PChar('Socket Error! Error: '+ IntToStr(WSAGetLastError())),'错误',MB_ICONERROR);     Exit;   end;   IP := GetLocalIP;   Addr_In.sin_family := AF_INET;   Addr_In.sin_port := Sql_Port;   Addr_In.sin_addr.S_addr := Inet_addr(PChar(IP));   New(SndBuf);   SndBuf^ := '0';   if SetSockOpt(Sock,SOL_SOCKET,SO_SNDBUF,SndBuf,SizeOf(SndBuf)) = SOCKET_ERROR then   begin     MessageBox(Application.Handle,PChar('Set SO_SNDBUF Error! Error: '+ IntToStr(WSAGetLastError())),'错误',MB_ICONERROR);     Exit;   end;   New(NoDelay);   NoDelay^ := Char(True);   if SetSockOpt(Sock, SOL_SOCKET,TCP_NODELAY,NoDelay,SizeOf(NoDelay)) = SOCKET_ERROR then   begin     MessageBox(Application.Handle,PChar('Set TCP_NODELAY Error! Error: '+ IntToStr(WSAGetLastError())),'错误',MB_ICONERROR);     Exit;   end;   New(Broadcast);   Broadcast^ := '1';   if SetSockOpt(sock, SOL_SOCKET, SO_BROADCAST, Broadcast, SizeOf(Broadcast))=SOCKET_ERROR then   begin     MessageBox(Application.Handle,PChar('Set SO_BROADCAST Error! Error: '+ IntToStr(WSAGetLastError())),'错误',MB_ICONERROR);     Exit;   end;   New(P);   P.L := L;   P.V := Sock;   CreateThread(nil,0,@Listen,P,0,Listener);   Buf := char(02);   if SendTo(Sock, Buf, SizeOf(buf), 0, addr_in, sizeof(addr_in))=SOCKET_ERROR then   begin     MessageBox(Application.Handle,PChar('Send Failed! Error: '+ IntToStr(WSAGetLastError())),'错误',MB_ICONERROR);     Exit;   end;   WaitForSingleObject(Listener,5000);   WsaCleanUp; end; end.

huiyue · 2003-11-05

你的C程序是用来探测端口的，而我的程序则是采用SQLDMO来的，不一样， 我的程序如果不注册为服务程序的话，那么运行很正常，但是一旦注册为服务程序后就只能看到本机的了，我自己还没有弄明白，不过如果你只是需要列举局域网中的SQL Server的话，可以用我的那个方法,；有什么疑问的话和我联系:Songyuehua@163.net 其实你看看App2001的那个地址就知道怎么做了 http://www.delphibbs.com/delphibbs/dispq.asp?LID=2057477

谁能把下面的这段C代码译成DELPHI7的代码？？？！ (100分)

jxc163

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

jxc163

Unregistered / Unconfirmed

icegirl914

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

jxc163

Unregistered / Unconfirmed

huiyue

Unregistered / Unconfirmed

Similar threads