El codigo que se puso traducido a c++ es mas o menos este:
if(odFichero->Execute())
{
equipo = odFichero->FileName;
iFileHandle = FileOpen(odFichero->FileName, fmOpenRead);
iFileLength = FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer = PChar(AllocMem(iFileLength + 1));
iBytesRead = FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);
for(int i=0;i < iBytesRead-1;i++)
{
cadenahex = cadenahex + IntToHex((int)(Buffer[i]),2);
}
}
|