XProfan

var i% = SQLINIT(DSN=Firebird;)
messagebox(str$(i%),,4160)

declare db&,sql$, Bereich#, Datei$, X1&, Inhalt$,Inhalt2$ , Result&,blub$
cls
Datei$ = C:\Verein\Dho\PROFAN_PROJEKT\Toolbar.bmp
Print (FileSize(Datei$)/1024/1024),MB
Dim Bereich#, FileSize(Datei$)
Result& = @BlockRead(Datei$, Bereich#, 0, FileSize(Datei$))
Inhalt$ = encode64(@Char$(Bereich#,0,FileSize(Datei$)))
Dispose Bereich#
TraceOn
db& = sqlinit(DSN=KursDB;UID=SYSDBA;PWD=masterkey;DBNAME=C:\Verein\DHOPROFAN_PROJEKT\KURSDB.GDB)

If db& > 0

    Tabelle löschen, wenn schon vorhanden
    Set(Errorlevel,0)
    SQLExec DROP TABLE BLOBTESTER;,0
    Set(Errorlevel,1)
    Tabelle neu erzeugen
    sqlExec CREATE TABLE BLOBTESTER ( Feld1 CHAR(40), Name CHAR(40), groesse NUMERIC(15,0), blobtest BLOB ),0
    sqlExec INSERT INTO BLOBTESTER(Feld1,Name,groesse,blobtest) VALUES(Dietmar,Timä,1000,:Inhalt$),1einfügen
    sqlexec SELECT * FROM BLOBTESTER,0
    ClearList
    sqlexec SELECT * FROM BLOBTESTER,1
    SQLDone
    Print @GetCount(0)+1
    @DeleteString(0,0)
    @DeleteString(0,1)
    @DeleteString(0,2)
    @DeleteString(0,3)
    Print @GetCount(0)+1
    Inhalt2$ = Decode64(@MoveListToStr$(@Chr$(1)))
    print Inhaltsvergleich:
    print    ,Left$(Inhalt$ ,40)
    print    ,Left$(encode64(Inhalt2$),40)
    Dim Bereich#, FileSize(Datei$)
    Char Bereich#, 0 = Inhalt2$
    Print SizeOf(Bereich#)
    BlockWrite C:\Verein\Dho\PROFAN_PROJEKT\Toolbar_100.bmp, Bereich#, 0, SizeOf(Bereich#)

Else

    MessageBox(Datenbank konnte nicht gefunden werden,,0)

Endif

Dispose Bereich#
Waitinput
end

declare db&, sql$, bild#, sbild$, datei$, startpos&, teil$, teilnr%, ergebnis$, bildnr%
cls
db& = sqlinit(DSN=KursDB;UID=SYSDBA;PWD=masterkey;DBNAME=D:\Dokumente\FireBird\KURSDB.GDB)

If db& > 0

    =================
    TABELLEN ERZEUGEN
    =================
    Tabellen löschen, wenn schon vorhanden
    Set(Errorlevel,0)
    SQLExec DROP TABLE bilderliste,0
    SQLExec DROP TABLE bild,0
    Set(Errorlevel,1)
    Tabelle für die Liste der Bilder neu erzeugen
    SQLExec CREATE TABLE bilderliste (name CHAR(40), fotograf CHAR(40), bildnr INTEGER),1
    Tabelle für die eigentlichen Bilder neu erzeugen
    SQLExec CREATE TABLE bild (bildnr INTEGER, teil INTEGER, bilddaten VARCHAR(32000)),1
    =========================
    BILD IN TABELLE SPEICHERN
    =========================
    Da zu einem Bild mehrere Datensätze gehören, alle Datensätze eines Bildes ineiner Transaktion
    zusammmenfassen
    Zunächst also die automatische Bestätigung einzelner SQL-Befehle ausschalten. Die folgenden
    SQL-Befehle werden also erst mal zwischengespeichert ohne wirklich in die Datenbank zu gehen
    sqlexec #AUTOCOMMIT_OFF, 0
    Tabelle Bilderliste füllen: Bild 1 hinzufügen
    sql$ = INSERT INTO bilderliste VALUES (Helloween Muffins,Jasmin Hülsmann,1)
    sqlexec sql$,0
    Nun das Bild in Bild# einlesen
    datei$ = HELLOWEEN.JPG
    Dim Bild#, FileSize(datei$)
    BlockRead(datei$, Bild#, 0, FileSize(datei$))
    Das Bild in einen String umwandeln
    SBild$ = Encode64(Char$(Bild#,0,FileSize(datei$)))
    Den String SBild$ in Teilen zu je 32000 Bytes in die Tabele bild schreiben
    startpos& = 1      erstes Zeichen des Teilstrings in startpos&
    teilnr%   = 1      Nummer des aktuellen Teilstrings

    While startpos& < Len(SBild$)

        teil$ = mid$(SBild$, startpos&, 32000)                  teil aus dem String bilden
        sql$ = INSERT INTO bild VALUES (1,:teilnr%,:teil$)    und in Tabelle einfügen
        sqlexec sql$,1
        startpos& = startpos& + 32000                           Startposition im String hochzählen
        teilnr%   = teilnr% + 1                                 teilnummerhochzählen

    EndWhile

    Wenn bis hierher alles glatt gegangen ist, konnten alle Datensätze eines Bildes geschrieben
    werden. Es erfolgt also die Bestätigung, dass es nun wirklich in die Datenbank kann:
    sqlexec #COMMIT, 0
    Für die folgenden Befehle benötigen wir die Transaktionskontrolle nicht mehr, so dass
    jede SQL-Anweisung automatisch bestätigt werden soll:
    sqlexec #AUTOCOMMIT_ON, 0
    =========================
    BILD AUS TABELLE AUSLESEN
    =========================
    Ein Bild aus der Tabelle Bilderliste auswählen
    sql$ = SELECT * FROM bilderliste
    clearlist
    sqlexec sql$,1
    Überschrift und Trennzeile entfernen
    DeleteString(0,0)
    DeleteString(0,0)
    ergebnis$ = listbox$(Bild auswählen und mit OK bestätigen:,2)

    if ergebnis$ >

        Die Nummer des gewählten Bildes steht im dritten Feld
        bildnr% = Int(Val(SubStr$(ergebnis$,3,|)))
        Jetzt alle Teilstrings zum gewünschten Bild aus der Tabelle bild in richtiger Reihenfolge auswählen
        Wir benötigen nicht alle Spalten, sondern nur die Bilddaten
        sql$ =SELECT bilddaten FROM bild WHERE bildnr = :bildnr% ORDER BY teil
        clearlist
        sqlexec sql$,1
        Überschrift und Trennzeile entfernen
        DeleteString(0,0)
        DeleteString(0,0)
        Den Gesamtstring aus den Teilen wieder herstellen
        sbild$ =

        WhileLoop 0, %getcount

            sbild$ = sbild$ + trim$(substr$(listboxitem$(&loop),1,|))

        EndWhile

        Das Bild in seine Byteform zurückverwandeln ...
        sbild$ = Decode64(sbild$)
        ... eine Bereichsvariable auf passende Größe bringen
        Clear Bild#
        Dim Bild#, Len(sbild$)
        ... und das Bild hineinspeichern
        Char Bild#,0 = sbild$
        Bild auf Festplatte speichern
        blockwrite GelesenesBild.jpg, Bild#, 0, SizeOf(Bild#)
        Bild zur Kontrolle anzeigen
        DrawSizedPic GelesenesBild.jpg, 0, 0 - 400, 300, 0

    EndIf

    SQLDone

Else

    Print Datenbank konnte nicht geöffnet werden!

Endif

waitinput
end