Dane typu BLOB

[sebaskow]

Baza danych Access.
Komponent TADOTable


Orientujecie się może w jaki sposób "wrzucić" do bazy danych dane typu binarnego ?

[Corvis]

Ale co konkretnie ??

[sebaskow]

Jakie kolwiek dane binarne. Np. plik.

Kod: Zaznacz cały

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

void *ptr;

int wielkosc  = strumien->Size;

ptr = malloc(wielkosc);

strumien->Read(ptr, wielkosc);

// - i te dane uzyskane przy pomocy strumienia chciałbym wrzucić do bazy danych.


[Corvis]

http://forum.4programmers.net/Bazy_dany ... is_do_BLOB

http://www.delphipages.com/forum/showth ... p?t=188362

http://delphi.about.com/od/database/a/record2blob.htm

http://objectmix.com/delphi/401806-blob ... tream.html

[sebaskow]

Super. Dziękuję.

Zaraz będę próbował zrobić coś po swojemu

Bardzo mi to pomogło.

[Corvis]

Jak nie ogarniesz daj znać

[sebaskow]

Zrobiłem to tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

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;
}

Mam tylko taki problem:

Gdy wrzucam do bazy danych duży plik bardzo długo to trwa. i Zawiesza program.
Np. Plik 33MB wczytuje u mnie 97sek. To jest zbyt długo.
Jak należy napisać funkcję aby dane były wprowadzane sekwencyjne. ( kawałkami ) wiem jak rozdzielić plik poprzez TFileStream, ale nie wiem jak mam ten rozdzielony plik wrzucić do bazy danych ?

[Corvis]

Po jaką cholerę wrzucać do bazy takie pliki ????

Nie bardzo widzę sens żeby to robić. Nie lepiej wrzucać plik na jakiś serwer danych a do bazy samą ścieżkę do pliku ?

[Cyfrowy Baron]

Jest dokładnie tak jak pisze Corvis. Wrzucanie plików do bazy danych jest raczej pozbawione sensu.

[sebaskow]

Nie ja o tym decyduje. Tylko osoba dla której robię program.
To ma być baza danych osób. Osoby te dysponują różnymi dokumentami które mają być przechowywane w jednym miejscu, a więc w bazie danych.

Zapewne będą to arkusze excela, dokumenty worda, skany dokumentów, różnego rodzaju pisma itp...
Mogę zakładać że nie będą to jakieś wielkie pliki ale przewidzieć tego nie mogę.

[Corvis]

No to uświadom osobę, że to zły pomysł Konserwacja, wydajność tej bazy będzie masakryczna po pewnym czasie. Można to zrobić naprawdę dobrze i przenośnie nie zapisując plików w bazie

Np.

Zapisujesz w tabeli bazy danych ( np Ustawienia ) Główną ścieżkę gdzie znajdują się pliki na serwerze np.

X:\Dane\Pliki

Potem przy zapisywaniu danych zapisujesz tylko Folder uzytkownika i plik

\Folder Uzytkownika\PlikX.xxx

Fizycznie całość wygląda tak:

Sciezka_glowna\Pliki_uzytkownika

X:\Dane\Pliki\Folder Uzytkownika\PlikX.xxx

A Przy odczycie łączysz ścieżkę główną z plikiem. Przy przenoszeniu zmieniasz tylko główną ścieżkę X:\Dane\Pliki

Da się to zrobić bo tak robiłem i działało to super

[Cyfrowy Baron]

Problem sprowadza się do tego, że baza danych nie jest przystosowana do przechowywania plików. Jeśli musisz je przechowywać w bazie danych w postaci binarnej to trudno, ale nie oczekuj, że zapisywanie takich plików będzie przebiegało szybko, gdyż plik musi zostać w całości przetworzony i czasu tego nie skrócisz.

Prawdziwy problem zacznie się wtedy (o czym wspomniał Corvis), gdy zamieścisz w bazie kilkaset megabajtów danych - wiem bo kiedyś też wpadłem na taki pomysł. Przetworzenie tego będzie trwało wieki...

[sebaskow]

Czyli rozumiem że nie jest możliwe pofragmentowanie plików i wysyłanie ich po kawałku ?

Spróbuję przekonać gościa aby przechowywać pliki w jednym miejscu a w bazie danych pozostawić tylko ścieżkę do plików.

Gorzej jak będzie uparty

Dziękuję.

[Cyfrowy Baron]

Czyli rozumiem że nie jest możliwe pofragmentowanie plików i wysyłanie ich po kawałku ?

Baza danych, z której korzystasz nie obsługuje takiej funkcji.

---

Niżej masz przykładowy plik dodany do bazy danych. Plik jednak jest przechowywany na serwerze a tutaj znajduje się tylko link z bazy danych. Zauważ, że link nie wskazuje bezpośrednio na plik, więc nie wiesz gdzie się on dokładnie znajduje i nie możesz go pobrać bezpośrednio. Plik na serwerze jest przechowywany pod nazwą 2_448749cdb069ae64aaa4ea329bfc157c - jak widać bez rozszerzenia. Spróbuj go pobrać bezpośrednio z linku, który do niego prowadzi: http://programowanie.cal.pl/forum/files/2_448749cdb069ae64aaa4ea329bfc157c!

To że plik jest przechowywany na serwerze, a nie bezpośrednio w bazie danych, nie oznacza, że można go pobrać z pominięciem bazy danych. Jeżeli jednak masz dostęp administracyjny do serwera to bez problemu dobierzesz się do takiego pliku.

---