감사합니다.
그런데 실제 코드부분의 포인터 및 New 생성자 등을 잘 모르겠습니다.


Lyn 님이 쓰신 글 :
: PACKET = record
:   Net : Byte;
:   Dev : Byte;
:   Pid : WORD;
:   Size : WORD;
:   Data :  array [0..127] of Byte;
:   Sop : Byte;
:   Addr : Byte;
:   Sum : WORD;
: end;
:
: 신원전자 님이 쓰신 글 :
: : 고수님들의 도움을 부탁드립니다.
: :
: : C Builder 에서 작성한 코드를 Delphi용으로 변환해야 합니다.
: : 구조체때문에 헤메고 있습니다.
: :
: : 부탁드립니다.
: :
: : typedef struct tagPACKET
: : {
: : BYTE    Net;
: : BYTE    Dev;
: : WORD    Pid;
: : WORD    Size;
: : BYTE    Data[128];
: : BYTE    Sop;
: : BYTE    Addr;
: : WORD    Sum;   
: : } PACKET;
: :
: :
: :
: : typedef struct tagLOGINPOLL
: : {
: : BYTE TempByte;
: : BYTE LoginType;
: : BYTE Id[16];
: : BYTE Passwd[16];
: : BYTE ProcPrg;
: : DWORD CardNo;
: : } LOGINPOLL;
: :
: :
: : PACKET* sPacket = new PACKET;
: : LOGINPOLL* sRecord = (LOGINPOLL*)sPacket->Data;
: :
: : sPacket->Pid = 1L;
: : sPacket->Size = sizeof(LOGINPOLL);
: :
: : sRecord->ProcPrg = 1;
: : sRecord->LoginType = 1;
: : strcpy(sRecord->Id, Id.c_str());
: : strcpy(sRecord->Passwd, Pwd.c_str());
: : Socket->SendBuf(sPacket, sizeof(PACKET));
: :
: : delete sPacket, sRecord;