netFrame-Syntax:
function loadimageasbase64(ainitfolder: string; amaxsize:integer; var adata,aext: string): boolean
Beschreibung:
Die Funktion loadimageasbase64 bringt einen Auswahldialog wo der Benutzer ein Bild auswählen kann.
ainitfolder bestimt dabei welcher Ordner standardmäsig angezeigt wird. (Könnte über eine globale Variable definiert sein)
amaxsize bestimt dabei die maximale Grösse des Bildes in Bytes, ansonsten wird laden verhindert.
adata enthält dann das Bild als Base64 codierten string.
aext enthält die Extension des Bildes. Speichern Sie diese unbedingt mit da der Berichtdesigner
wissen muss um was für eine Art Bild es sich handelt sonst kann er es nicht anzeigen.
Wenn in aext ein Eintrag übergeben wird dann wird dieser automatisch vorausgewählt.
Beispiel:
//Dieses Beispiel ladet ein Bild zum aktuellen Objekt
//Dabei darf das Bild nicht grösser sein als 300 Kb
procedure ButtonPicLoad_OnClick(Sender: Integer);
var
aData, aExt: string;
aMaxSize: Integer;
begin;
aMaxSize:= 1024 * 300; //300Kb
aData := ;
aExt := '*.jpg'; //Voreinstellung es werden jedoch auch andere Formate unterstüzt ('.bmp, *.gif)
if loadImageAsBase64(, aMaxSize, aData, aExt) then
begin
TableObjekt.edit;
TableObjekt.fieldByName('OB_PIC').asString := aData;
TableObjekt.fieldByName('OB_PIC_EXT').asString := aExt;
TableObjekt.post;
end;
end;