CYFROWY BARON • PROGRAMOWANIE

void __fastcall TForm1::Button5Click(TObject *Sender)
{
String plik;


if(OpenDialog1->Execute())
        {
        plik = OpenDialog1->FileName;
        }
else
        {
        StatusBar1->Panels->Items[0]->Text = "Nie wybrano pliku...";
        return;
        }


TFileStream *strumien = new TFileStream(plik, fmOpenRead);

Label5->Caption = IntToStr(strumien->Size) + " Byte";
Label6->Caption = IntToStr(strumien->Size / 1024) + " KByte";

int wielkosc = strumien->Size;
ptr = malloc(wielkosc);

strumien->Read(ptr, wielkosc);

Application->ProcessMessages();


TBlobField *blob;
blob = (TBlobField*)ADOTable1->FieldByName("Dane");



ADOTable1->Insert();

        blob->SetFieldType(ftBlob);
        blob->Transliterate = false;
        double start = GetTickCount();

        blob->LoadFromStream(strumien);
        ADOTable1->FieldByName("Plik")->AsString = m_plik;

ADOTable1->Post();

double koniec = GetTickCount();

koniec = koniec - start;


StatusBar1->Panels->Items[1]->Text = String().FormatFloat("# ##0.000 sek.", koniec / 1000);


delete strumien;
strumien = NULL;
free(ptr);
ptr = NULL;
}