code conversion from C++ to delphi

[alvin_aldrich]

Hi I need help on converting the sample c++ code. Can someone please help. Any help would be greatly appreciated. :D

struct sample
{
int type;
long arg1, arg2;
};

struct sample sampletable[2][3] =
{{{ 1, 0, 0 },
{ 2, 0, 0 },
{ 1, 0, 0 }},
{{ 2, 0, 0 },
{ 3, 0, 0 },
{ 4, 0, 0 }},
{{ 5, 0, 0 },
{ 6, 0, 0 },
{ 1, 0, 0 }}}

[Lord Soth]

Hi,

Try this :

type sample = record
_type,arg1,arg2 : integer; 
{ type is a reserved word in Delphi, and integer type is 32 bit wide; for 16 bit unsigned you can use Word or for 8 bit unsigned you can use byte; there are also shortint and other integer types, you can check the help
}
end;

var sampletable : Array [0..1,0..2] of sample = ( ((_type:1;arg1:1;arg2:1),(_type:1;arg1:1;arg2:1),(_type:1;arg1:1;arg2:1)) , ((_type:1;arg1:1;arg2:1),(_type:1;arg1:1;arg2:1),(_type:1;arg1:1;arg2:1)) );

Loren Soth

[htataw]

Hi for all,
I'm newer with Delphi can anybody help me to convert the following c++ code to
delphi7 one's.

many thanks in advance

c++ code :
*********************************
#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]\n", 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/err_log","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\n", 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\"\n", 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\n", errno);
exit(EXIT_FAILURE);
}

if (send(fd, ibuffer, sizeof(ibuffer), 0) <= 0) {
printf("sock00:send error %d\n", errno);
exit(EXIT_FAILURE);
}

memset(buffer, 0, sizeof(buffer));
/* fprintf(stderr,"\nCMD :%s\n",ibuffer+6); */
if ((n = recv(fd, buffer, sizeof(buffer), MSG_WAITALL)) < 0) {
printf("recv error %d\n", errno);
exit(EXIT_FAILURE);
}
/* printf("%s\n",buffer+6 ) ;*/
fprintf(stderr,"%s\n",buffer+10);
close(fd);

return EXIT_SUCCESS;
}

*********************************

[Sten Ove Larvin]

I will be very grateful if someone could converse this program from C to Delphi.

unsigned short crc (unsigned char *p,int buflen, unsigned short start_crc)
{
unsigned short temp;
int i,j;
unsigned char c;
temp = start_crc;
for (i=0; i> 1;
if (c & 1) temp l= 0x8000;
c = c>> 1;
}
}
Return(~temp);
}