Witam męczę się z tym od jakiegoś czasu i ale jakoś mi nie wychodzi
A więc chcę otworzyć plik bin (bit po bicie) i zamienić na Int napisałem coś takiego
Jak połączyć te fragmenty kodu żeby wykonywało zamianę.
A więc chcę otworzyć plik bin (bit po bicie) i zamienić na Int napisałem coś takiego
//---------------------------------------------------------------------------
int BinToInt(String Value)
{
int ValueSize, Result;
Result = 0;
ValueSize = Value.Length();
for(int i = ValueSize; i > 0; i--)
if(Value.SubString(i, 1) == "1")
Result = Result + (1 << (ValueSize - i));
return Result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
TFileStream *file = new TFileStream((OpenDialog1->FileName), fmOpenRead);
int howmany = file->Size / 1;
unsigned char buf;
for (int i = 0; i < howmany; i++)
{
file->Seek(i, soFromBeginning);
file->Read(&buf, 1);
}
file->Free();
}
}
//---------------------------------------------------------------------------
Jak połączyć te fragmenty kodu żeby wykonywało zamianę.