C# to DelphiRésolu

Question

Hi for All, I have the following C# code my aim is to convert it to Delphi : #include #include #include #include #include #include #include #include #include #include #include #include #define BUFSIZE 216 /* size of message buffer */ void usage(char *progname) { printf("usage: %s [-h host] [-p port] ", progname); exit(EXIT_FAILURE); } int main(int argc, char *argv[]) { char *host = "localhost"; int port = 6661; int fd; struct hostent *hostentry = NULL; struct sockaddr_in addr; int n; int c, errflg = 0; char buffer[BUFSIZE]; char header[7]; char ibuffer[256]; FILE *f = freopen("/home/cmstest/iofiles/massive/pending/T","w",stderr); memset(ibuffer, 0, 256); memset ( header, 0, sizeof ( header )); header[0] = ((strlen(argv[5])+4)/256); header[1] = ((strlen(argv[5])+4)%256); memcpy ( header + 2 , "1234", 4); memcpy ( ibuffer ,header , 6); memcpy ( ibuffer + 6 ,argv[5] ,strlen(argv[5])); while ((c=getopt(argc, argv, "h:p:")) != -1) { switch(c) { case 'h': /* server host name */ host = optarg; break; case 'p': /* server port */ port = atoi(optarg); break; default: /* the rest are errors */ errflg++; break; } } if (host NULL || port 0 || errflg) { usage(argv[0]); } signal(SIGPIPE, SIG_IGN); /* create a TCP socket */ if ((fd=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0) { printf("sock00:socket error %d ", errno); exit(EXIT_FAILURE); } /* connect to the socket server */ memset(&addr, 0, sizeof(struct sockaddr_in)); addr.sin_family = AF_INET; addr.sin_port = htons(port); if (strcmp(host, "any") == 0) { addr.sin_addr.s_addr = htonl(INADDR_ANY); } else if (strcmp(host, "loopback") == 0) { addr.sin_addr.s_addr = htonl(INADDR_LOOPBACK); } else { if ((hostentry gethostbyname(host)) NULL) { printf("sock00:invalid hostname "%s" ", host); exit(EXIT_FAILURE); } memcpy(&addr.sin_addr.s_addr, hostentry->h_addr, hostentry->h_length); } if (connect(fd, (struct sockaddr *)&addr, sizeof(struct sockaddr)) < 0) { printf("sock00:connect error %d ", errno); exit(EXIT_FAILURE); } if (send(fd, ibuffer, sizeof(ibuffer), 0) <= 0) { printf("sock00:send error %d ", errno); exit(EXIT_FAILURE); } memset(buffer, 0, sizeof(buffer)); /* fprintf(stderr," CMD :%s ",ibuffer+6); */ if ((n = recv(fd, buffer, sizeof(buffer), MSG_WAITALL)) < 0) { printf("recv error %d ", errno); exit(EXIT_FAILURE); } /* printf("%s ",buffer+6 ) ;*/ fprintf(stderr,"%s ",buffer+10); close(fd); return EXIT_SUCCESS; } Any help would be appreciated Thanks

zwyx · Accepted Answer

Si je ne me trompe, en Delphi, on n'a pas besoin de s'embêter avec la taille des objets que l'on manipule, il suffit de les créer et de les détruire au bon moment.

Sinon, tu le transcrit en langage assembleur, et tu pourras l'intégrer dans un programme Delphi.

Kind regards

JulioDelphi · Answer

On ne demande pas de code tout fait.

Guillemouze · Answer

il va pas comprendre julio !
"We don't dimennde ze code all fact"
pas de moquerie, c'est une blague. J'suis pas autant une buse que ca en anglais

Pet73 · Answer

Thank you Julio for your quick answer, Ok I see
just memset and memcpy and this statement :

header[0] = ((strlen(argv[5])+4)/256); 
header[1] = ((strlen(argv[5])+4)%256);

Cheers

Guillemouze · Answer

header[0] = ((Length(argv[5])+4) div 256);
header[1] = ((Length(argv[5])+4) mod 256);

Pet73 · Answer

Many Thanks for your Help

Bacterius · Answer

Si tu sais parler en français, car il "semblerait" que tu comprennes les réponses, tu peux le faire, c'est pas interdit sur un forum français 

Cordialement, Bacterius !

Caribensila · Answer

Une question en français ???!!!

Ca existe, ici ?

Aly05 · Answer

Hello Pet73,

Your code is in C++, not in C#..

Caribensila · Answer

@ Aly05
On s'en fout.
Venu acheter du Delphi, il repart avec de l'assembleur... Et il est content !

C# to Delphi

10 réponses

Votre réponse

Discussions similaires