maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
220<strong>05</strong>: https://bitbucket.org/max_kleiner/maxbox3/wiki/maXbox%20Tutorials<br />
22006: http://www.slideshare.net/maxkleiner1/codereview-topics<br />
22007:<br />
220<strong>08</strong>: UrlGoogleQrCode='http://chart.apis.google.com/chart?chs=%dx%d&cht=qr&chld=%s&chl=%s';<br />
22009: UrlMapQuestAPICode2='http://open.mapquestapi.com/nominatim/v1/search.php?format=%s&json_callback<br />
22010: =renderBasicSearchNarrative&q=%s';<br />
22011: UrlMapQuestAPIReverse:= 'http://open.mapquestapi.com/nominatim/v1/reverse.php?format=<br />
22012: %s&json_callback=renderExampleThreeResults&lat=%s&lon=%s';<br />
22013:<br />
220<strong>14</strong>: function OpenMap(const Data: string): boolean;<br />
2<strong>2015</strong>: var encURL: string;<br />
22016: begin<br />
220<strong>17</strong>: encURL:= Format(UrlMapQuestAPICode2,['html',HTTPEncode(Data)]);<br />
22018: try //HttpGet(EncodedURL, mapStream); //WinInet<br />
22019: Result:= UrlDownloadToFile(Nil,PChar(encURL),PChar(Exepath+'openmapx.html'),0,Nil)= 0;<br />
22020: //OpenDoc(Exepath+'openmapx.html');<br />
22021: S_ShellExecute(Exepath+'openmapx.html','',seCmdOpen);<br />
22022: finally<br />
22023: encURL:= '';<br />
22024: end;<br />
22025: end;<br />
22026:<br />
22027: procedure GetGEOMap(C_form,apath: string; const Data: string);<br />
22028: var encodedURL: string; mapStream: TMemoryStream;<br />
22029: begin //encodedURL:= Format(UrlGoogleQrCode,[Width,Height, C_Level, HTTPEncode(Data)]);<br />
22030: encodedURL:= Format(UrlMapQuestAPICode2,[c_form,HTTPEncode(Data)]);<br />
22031: mapStream:= TMemoryStream.create;<br />
22032: try<br />
22033: Wininet_HttpGet(EncodedURL, mapStream); //WinInet<br />
22034: mapStream.Position:= 0;<br />
22035: mapStream.Savetofile(apath); // OpenDoc(apath);<br />
22036: S_ShellExecute(apath,'',seCmdOpen);<br />
220<strong>37</strong>: finally<br />
22038: mapStream.Free;<br />
22039: end;<br />
22040: end;<br />
22041:<br />
22042: Procedure BtnFactory(a,b,c,d:smallint; title,apic:string;<br />
22043: var abtn:TBitBtn; anEvent:TNotifyEvent; afrm:TForm);<br />
22044: begin<br />
22045: abtn:= TBitBtn.create(afrm);<br />
22046: with abtn do begin<br />
22047: parent:= afrm;<br />
22048: setBounds(a,b,c,d)<br />
22049: font.size:= 12;<br />
22<strong>05</strong>0: glyph.LoadFromResourceName(HINSTANCE, apic);<br />
22<strong>05</strong>1: mXButton(5,5,width, height,12,12,handle);<br />
22<strong>05</strong>2: caption:= title;<br />
22<strong>05</strong>3: onClick:= anEvent As TNotifyEvent;<br />
22<strong>05</strong>4: end;<br />
22<strong>05</strong>5: end;<br />
22<strong>05</strong>6:<br />
22<strong>05</strong>7: function MySoundcard: Longint; external 'waveOutGetNumDevs@winmm.dll stdcall';<br />
22<strong>05</strong>8: function isSound: boolean; begin result:= mySoundcard > 0 end;<br />
22<strong>05</strong>9: function StringtoHex(Data: string): string;<br />
22060: function GetAnsistringRefcount(const S: string): Cardinal;<br />
22061: function WideStringToString(const ws: WideString; codePage: Word): AnsiString;<br />
22062: function StringToWideString(const s: AnsiString; codePage: Word): WideString;<br />
22063: procedure FreeObjectList(List: TObjectList);<br />
22064: function SecondToTime(const Seconds: Cardinal): Double;<br />
22065: function CopyDir2(const fromDir, toDir: string): Boolean;');<br />
22066: function MoveDir(const fromDir, toDir: string): Boolean;');<br />
22067: function DelDir(dir: string): Boolean;');<br />
22068: procedure DeleteScansRect(Src, Dest: TBitmap; rs, rd: TRect);<br />
22069: procedure FadeIn(ImageFileName: TFileName; aForm1: TForm);<br />
22070: procedure FadeOut(ImageFileName: TFileName);<br />
22071: procedure FadeOut32(const Bmp: TImage; Pause: Integer);<br />
22072: function CheckBDEInstalled: Boolean; //IsBDE<br />
22073: Function GetNumberOfEventLogRecords(hEventLog: THandle; var NumberOfRecords: DWORD): BOOL;<br />
22074: Function GetOldestEventLogRecord( hEventLog : THandle; var OldestRecord : DWORD) : BOOL');<br />
22075: ex.: EventLog:= RegisterEventSource('0',('maxbox3.exe'));<br />
22076: if GetNumberOfEventLogRecords(eventlog, recs) then<br />
22077:<br />
22078: function ListIdentical2(l1,l2:TStringList): Boolean;<br />
22079: begin Result:= False;<br />
22<strong>08</strong>0: if l1.count = l2.count then begin<br />
22<strong>08</strong>1: for it:= 0 to l1.count-1 do<br />
22<strong>08</strong>2: if (l1[it] l2[it]) then Exit;<br />
22<strong>08</strong>3: Result:= True;<br />
22<strong>08</strong>4: end;<br />
22<strong>08</strong>5: end;<br />
22<strong>08</strong>6:<br />
22<strong>08</strong>7: // Converts String To Hexadecimal<br />
22<strong>08</strong>8: // Maybe usefull for a hex-editor<br />
22<strong>08</strong>9: // For example: Input = 'ABCD' Output = '41 42 43 44'<br />
22090:<br />
22091: function StringtoHex(Data: string): string;<br />
22092: var<br />
22093: i, i2: Integer; s: string;<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 256