XProfan

cls
var sql& = sqlinit(DSN=Firebird;UID=SYSDBA;PWD=masterkey;DBNAME=E:\Data\KURSDB.GDB;)
print sql&
Set(SQLFile, E:\Data\blobausgabe.jpg)
Declare dasbild#, bild$, groesse%, test#
bild$ = E:\Data\Drache.jpg
groesse% = FileSize(bild$)
Dim dasbild#, groesse%+2
Dim test#, groesse%+500  <-----Dimensionieren
BlockRead(bild$, dasbild#, 0, groesse%+1)
test# = INSERT INTO bilder (id, name, bild) VALUES (1, Drachen,  + dasbild# + )  <----- nicht mehr dimensioniert
sqlExec test#,1
Dispose test#
Dispose dasbild#
end

declare mem#,mim#
dim mem#,200
dim mim#,200
string mim#,0=Salat
string mem#,0=MeinString+string$(mim#,0)+DeinString
print string$(mem#,0)
waitKey
end

Set(SQLFile, E:\Data\blobausgabe.jpg)

test# = INSERT INTO bilder (id, name, bild) VALUES (1, Drachen,  + dasbild# + )

sqlExec test#, 1

cls
var sql& = sqlinit(DSN=Firebird;UID=SYSDBA;PWD=masterkey;DBNAME=E:\Data\KURSDB.GDB;)
print sql&
Declare dasBild#, dasBild$, bild$, groesse%, test$
bild$ = E:\Data\Drache.jpg
groesse% = FileSize(bild$)
Dim dasbild#, groesse% + 2
BlockRead(bild$, dasbild#, 0, groesse% + 1)
dasBild$ = Encode64(dasBild#, 0, sizeOf(dasBild#))
test$ = INSERT INTO bilder (id, name, bild) VALUES (1, Drachen,  + dasbild$ + )
sqlExec test$, 1
Dispose dasbild#
end