помогите перевести си - шный код под делфи

← →
ol (2004-06-08 12:34) [0]

#define SERVER_NAME "clndbb"
#define DBBSZ 2000 //!!!

LPVOID MVOF; //!!!
char *DBC; //!!!
float DBB[DBBSZ]; //!!!

//----------------------------------------------------------------------------
int main(vd){
int a, b;

HANDLE hFMap = OpenFileMapping( //!!!
FILE_MAP_WRITE | FILE_MAP_READ, FALSE, "DBBARR"); //!!!
MVOF=MapViewOfFile(hFMap, FILE_MAP_ALL_ACCESS,0,0,0); //!!!
DBC = (char *) MVOF; //!!!

for(;;){
for(a=0; a<DBBSZ; a++){ //!!!
b=a*4; //!!!
memcpy(&DBB[a],&DBC[b],4); //!!!

if(a>0&&a<10){
printf("DBB[%04d]=%4.0f ",a,DBB[a]);
}
} //!!!
printf("\n-------------------------------------------------------\n");
if(kbhit()>0){ getch(); break; }
}

CloseHandle(hFMap); //!!!

return(0);
}
//----------------------------------------------------------------------------
данная процедура читает данные из памяти, сгенерированые туда другой прогой

← →
Skier © (2004-06-08 12:42) [1]

1)LPVOID MVOF; - MVOF : Pointer;
2)char *DBC; DBC : PChar;

3)HANDLE hFMap = OpenFileMapping( //!!!
FILE_MAP_WRITE | FILE_MAP_READ, FALSE, "DBBARR"); //!!!
MVOF=MapViewOfFile(hFMap, FILE_MAP_ALL_ACCESS,0,0,0); //!!!

| = or

4) for(;;) = while True do begin end;

5)

for a := 0 to DBBSZ - 1 do begin
//.......
end; //for

помогите перевести си - шный код под делфи Найти похожие ветки