function loadimageasbase64(ainitfolder: string; amaxsize:integer; var adata,aext: string): boolean

Modified on 13/02/2008 11:34 by manuel Categorized as Nicht kategorisiert

((([image| |http://www.cp-austria.at/website/DesktopModules/Wiki/images/Home.gif|MainPage] » [MainPage|Startseite] » [netFramePlattform|netFrame als Plattform Menü] » [GlobaleMethoden|Globale Methoden] | {searchbox} [Search.aspx?FullText=1|Erweiterte Suche])))

'''netFrame-Syntax:{BR}
function''' loadimageasbase64(ainitfolder: string; amaxsize:integer; var adata,aext: string): boolean{BR}
{BR}
'''Beschreibung:'''{BR}
Die Funktion loadimageasbase64 bringt einen Auswahldialog wo der Benutzer ein Bild auswählen kann.{BR}
ainitfolder bestimt dabei welcher Ordner standardmäsig angezeigt wird. (Könnte über eine globale Variable definiert sein){BR}
amaxsize bestimt dabei die maximale Grösse des Bildes in Bytes, ansonsten wird laden verhindert.{BR}
adata enthält dann das Bild als Base64 codierten string.{BR}
aext enthält die Extension des Bildes. Speichern Sie diese unbedingt mit da der Berichtdesigner{BR}
wissen muss um was für eine Art Bild es sich handelt sonst kann er es nicht anzeigen.{BR}
Wenn in aext ein Eintrag übergeben wird dann wird dieser automatisch vorausgewählt.{BR}
{BR}
'''Beispiel:'''{BR}
{BR}
[image| |http://svn.cp-austria.at/doc_netframe/lib/exe/fetch.php?w=&h=&cache=cache&media=script:loadimageasbase64.jpg]{BR}
{BR}
<code lang="vb">
//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;
</code>

CP Wiki

Navigation¶

function loadimageasbase64(ainitfolder: string; amaxsize:integer; var adata,aext: string): boolean