<\/a><\/p>\nResources gebruiken<\/h3>\n
Tot nog toe was het allemaal nog niet zo ingewikkeld.
\nMaar dat gaat gelukkig nu veranderen.<\/p>\n
In Delphi kun je alle tot nog toe behandelde type resources in je project gebruiken, maar dat gaat helaas niet op een eenduidige manier.<\/p>\n
Soms heeft Delphi zelf routines in huis om gebruik te maken van resources, en in andere gevallen zullen we onze toevlucht moeten nemen tot Windows-API’s.<\/p>\n
Laten we maar eens beginnen.<\/p>\n
–\u00a0Open Delphi met een nieuw project<\/i>
\n–\u00a0Bewaar het project in je resource-map<\/i>
\n–\u00a0Zet een MainMenu-component op je form<\/i>
\n–\u00a0Zorg ervoor dat het menu er als volgt uitziet:<\/i><\/p>\n
Hoofmenu-items: &Bestand (mnuBestand), &Hulp (menuHulp)
\nSubmenu-items van &Bestand: &Laden (mnuBestandLaden), – (mnuBestandSep1), &Afsluiten (mnuBestandAfsluiten)
\nSubmenu-items van &Hulp: &Copyright (mnuHulpCopyright)<\/p>\n
Tussen haakjes staat steeds de naam van het item.<\/p>\n
Overigens zijn de Captions niet echt interessant, want die worden straks toch overschreven door de waarde’s die in menu.RES staan.<\/p>\n
–\u00a0Voeg in de implementation-sectie onder de regel met {$R *.DFM} de volgende regel toe:<\/i>
\n{$R menu.RES}<\/b><\/span>
\n–\u00a0Definieer 2 constanten: c_NL en c_UK met respectievelijk de waarden 1000 en 2000<\/i>
\n–\u00a0Declareer een variabele vTaal van het type integer<\/i>
\n–\u00a0Zet een RadioGroup-component op je form met als Caption ‘Taal’, Name ‘rgrTaal’, en met de volgende items:<\/i>
\nNL en UK
\n–\u00a0Implementeer het Click-event van rgrTaal als volgt:<\/i><\/p>\nprocedure TForm1.rgrTaalClick(Sender: TObject);<\/span>
\nbegin<\/span>
\n\u00a0 if rgrTaal.ItemIndex = 0 then<\/span>
\n\u00a0 \u00a0 vTaal := c_NL<\/span>
\n\u00a0 else<\/span>
\n\u00a0 \u00a0 vTaal := c_UK;<\/span>
\n\u00a0 UpdateTaal;<\/span>
\nend;<\/span>
\n<\/b><\/span>
\nDe procedure UpdateTaal moeten we nog maken. Het is de bedoeling om alles waar maar tekst aan te pas komt, dit wordt aangepast aan de gekozen taal: dus alles in het Nederlands of in het Engels.<\/p>\nOp dit moment hebben we allen menu.RES tot onze beschikking, dus dat kunnen we dan ook als enige hier aanpassen.<\/p>\n
–\u00a0Zet in de definitie van TForm1, in de Private-clausule de volgende declaratie:<\/i><\/p>\n
procedure UpdateTaal;<\/span><\/p>\n–\u00a0Implementeer de procedure UpdateTaal als volgt:<\/i><\/p>\n
procedure TForm1.UpdateTaal;<\/span>
\nbegin<\/span>
\n\u00a0 mnuBestand.Caption := LoadStr(vTaal);<\/span>
\n\u00a0 mnuBestandLaden.Caption := LoadStr(vTaal + 10);<\/span>
\n\u00a0 mnuBestandAfsluiten.Caption := LoadStr(vTaal+30);<\/span>
\n\u00a0 mnuHulp.Caption := LoadStr(vTaal+100);<\/span>
\n\u00a0 mnuHulpCopyright.Caption := LoadStr(vTaal+110);<\/span>
\nend;<\/span>
\n<\/b><\/span>
\nMet de functie LoadStr() haal je een string op uit\u00a0de<\/i>\u00a0stringtabel. Ik gebruik hier expres het woordje DE voor stringtabel, want Delphi kan maar met 1 stringtabel werken. Je mag best meer resource-files met stringtabel’s linken, maar Delphi maakt daar 1 groete stringtabel van.
\nHet is dus van groot belang dat ieder item uit iedere stringtabel uit ieder resource-bestand een uniek nummer heeft!<\/p>\nMerk op dat door het handig kiezen van de nummers in een stringtabel je aan een numerieke expressie genoeg hebt om het juiste item uit de stingtabel te destileren.
\nZo liggen alle Nederlandse menu-items tussen de 1000 en 1999, en alle Engelse menu-items tussen de 2000 en 2999.<\/p>\n
–\u00a0Implementeer het FormCreate-event als volgt:<\/i><\/p>\n
procedure TForm1.FormCreate(Sender: TObject);<\/span>
\nbegin<\/span>
\n\u00a0 vTaal := c_NL;<\/span>
\n\u00a0 rgrTaal.ItemIndex := 0;<\/span>
\n\u00a0 UpdateTaal;<\/span>
\nend;<\/span>
\n<\/b><\/span>
\nNu zijn we klaar voor een eerste test.<\/p>\n–\u00a0Bewaar het project en run het<\/i>
\n–\u00a0Kies een taal en klik in het menu<\/i>
\n–\u00a0Kies de andere taal en klik weer in het menu<\/i><\/p>\n
Hopelijk werkt alles naar wens, dat wil zeggen dat de Captions van de menu-items worden aangepast aan de gekozen taal.<\/p>\n
De rest van het voorbeeld ga ik niet zo uitkouwen als hierboven. Aan het einde van het hoofdstuk geef ik de volledige code weer, zodat je zelf het voorbeeld kunt afmaken.
\nWel geef ik alvast hier alle componenten die op de Form staan:<\/p>\n
\n\n\n| Component<\/td>\n | Name<\/td>\n | Poperty=<\/td>\n<\/tr>\n |
\n| Animate<\/td>\n | Animate1<\/td>\n | AutoSize=False, (Container=Panel1)<\/td>\n<\/tr>\n |
\n| Button<\/td>\n | btnAanUit<\/td>\n | Caption=’Aan’, Width=33, (Container=Panel1)<\/td>\n<\/tr>\n |
\n| Image<\/td>\n | Image1<\/td>\n | AutoSize=False, Stretch=True, Width=121, Height=153<\/td>\n<\/tr>\n |
\n| Image<\/td>\n | Image2<\/td>\n | AutoSize=False, Stretch=True, Width=15, Height=15, in linker-onderhoek van Image1<\/td>\n<\/tr>\n |
\n| Label<\/td>\n | Label1<\/td>\n | Staat links-boven Panel1<\/td>\n<\/tr>\n |
\n| Panel<\/td>\n | Panel1<\/td>\n | Width=137, Height=129<\/td>\n<\/tr>\n |
\n| Panel<\/td>\n | Panel2<\/td>\n | Width=505, Heigth=193<\/td>\n<\/tr>\n |
\n| Timer<\/td>\n | Timer1<\/td>\n | Interval=500<\/td>\n<\/tr>\n |
\n| WebBrowser<\/td>\n | WebBrowser1<\/td>\n | Align=alClient, (Container=Panel2)<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n Wat we hier moeten leren is hoe de verschillende resources in Delphi aan te roepen zijn.<\/p>\n Het afspelen van een AVI is simpel met een Animate-control:<\/p>\n In de property ResName komt de resource-naam (IDENTIFIER) van de AVI te staan,
\nin de property ResHandle zet je de waarde HInstance, en tot slot
\nset je de property Active op True.<\/p>\n Om een Bitmap in een Image-control te zetten kun je de volgende constructie gebruiken:<\/p>\n Image2.Picture.Bitmap.LoadFromResourceName(hInstance,’BULBOFF’);<\/span>
\n<\/b><\/span>
\nHier zie je dus een voorbeeld van een Delphi-oplossing. Simpel en doeltreffend.<\/p>\nIets minder voor de hand liggend is het laden van een Icon:<\/p>\n Form1.Icon.Handle := LoadIcon(hInstance,’HJGSOFT’);<\/span>
\nApplication.Icon.Handle := LoadIcon(hInstance,’HJGSOFT’);<\/span>
\n<\/b><\/span>
\nDe functie LoadIcon geeft een waarde van het type HICON, en dat is een Handle naar de Icon.<\/p>\nHet laden en toekennen van cursors gaat als volgt:<\/p>\n Alle cursors in Delphi worden in een Array van het object Screen gestopt. Om aan een control een nieuwe cursor toe te kennen moet je eerst deze Array uitbreiden:<\/p>\n Screen.Cursors[100] := LoadCursor(hInstance,’FLAT’);<\/span>
\nScreen.Cursors[101] := LoadCursor(hInstance,’GRAB’);<\/span>
\n<\/b><\/span>
\nLoadCursor retourneert weer een handle naar de cursor. De index van de Array maakt niets uit, want op de achtergrond blijkt het hier niet om een gewone Array te gaan maar om een Pointer-type.
\nWel is het handig te weten dat de standaard-cursors in Delphi een negatieve index hebben.
\nOm nu aan een control een nieuwe cursor toe te kennen is het voldoende om de index aan de property Cursor toe te kennen:<\/p>\nbtnAanUit.Cursor := 100;<\/span>
\n<\/b><\/span>
\nDe rest van onze resources laat zich minder makkelijk gebruiken.<\/p>\nDaarvoor gaan we een aantal, min of meer, generieke procedures maken.<\/p>\n Voor het gebruik van jpg’s maken we:<\/p>\n procedure LoadJPEGFromRes(TheJPEG : string; ThePicture : TPicture);<\/span>
\n<\/b><\/span>
\ndie een string meekrijgt van de naam van de jpg in de resource-file, en het object waar de jpg moet komen te staan.<\/p>\nIn ons voorbeeld gaan we het als volgt gebruiken:<\/p>\n LoadJPEGFromRes(‘ZOEF’,Image1.Picture);<\/span>
\n<\/b><\/span>
\nEn hier komt de implementatie:<\/p>\nprocedure LoadJPEGFromRes(TheJPEG : string; ThePicture : TPicture);<\/span>
\n\u00a0 var<\/span>
\n\u00a0 \u00a0 ResHandle : THandle;<\/span>
\n\u00a0 \u00a0 MemHandle : THandle;<\/span>
\n\u00a0 \u00a0 MemStream : TMemoryStream;<\/span>
\n\u00a0 \u00a0 ResPtr\u00a0\u00a0\u00a0\u00a0: PByte;<\/span>
\n\u00a0 \u00a0 ResSize\u00a0\u00a0 : Longint;<\/span>
\n\u00a0 \u00a0 JPEGImage : TJPEGImage;<\/span>
\nbegin<\/span>
\n\u00a0 ResHandle := FindResource(hInstance, PChar(TheJPEG), ‘JPEG’);\/\/retourneert handle naar resource-blok<\/span>
\n\u00a0 MemHandle := LoadResource(hInstance, ResHandle);\/\/laadt resource-blok in geheugen<\/span>
\n\u00a0 ResPtr\u00a0\u00a0\u00a0\u00a0:= LockResource(MemHandle);\/\/locked het resource-blok en retourneert een pointer naar eerste byte van resource-blok<\/span>
\n\u00a0 MemStream := TMemoryStream.Create;\/\/geheugen-stroom<\/span>
\n\u00a0 JPEGImage := TJPEGImage.Create;<\/span>
\n\u00a0 ResSize := SizeOfResource(hInstance, ResHandle);\/\/grootte in bytes van resource-blok<\/span>
\n\u00a0 MemStream.SetSize(ResSize);\/\/zet de grootte van geheugen-stroom<\/span>
\n\u00a0 MemStream.Write(ResPtr^, ResSize);\/\/vult de geheugen-stroom met het resource-blok<\/span>
\n\u00a0 FreeResource(MemHandle);\/\/voor 16-bits toepassingen, obsolete voor 32-bits toepassingen<\/span>
\n\u00a0 MemStream.Seek(0, 0);\/\/zet de wijzer aan het begin van het geheugen-blok<\/span>
\n\u00a0 JPEGImage.LoadFromStream(MemStream);<\/span>
\n\u00a0 ThePicture.Assign(JPEGImage);<\/span>
\n\u00a0 JPEGImage.Free;<\/span>
\n\u00a0 MemStream.Free;<\/span>
\nend;<\/span>
\n<\/b><\/span>
\nHet commentaar spreekt hopelijk voor zich. Waar het op neerkomt is dat je de resource in een geheugenstroom zet en vandaaruit het jpeg-image vult. Een geheugenstroom kun je vergelijken met een bestand op schijf.
\nGebruik de Unit JPEG in je Uses-clausule.<\/p>\nVoor het afspelen van een WAV volgen we min of meer hetzelfde als hierboven.
\nDe procedure heet:<\/p>\n procedure PlayWaveFromRes(TheWave: string);<\/span>
\n<\/b><\/span>
\nen in ons voorbeeld wordt het als volgt gebruikt:<\/p>\nPlayWaveFromRes(‘ZOEFZOEF’);<\/span>
\n<\/b><\/span>
\nHier is de implementatie:<\/p>\nprocedure PlayWaveFromRes(TheWave: string);<\/span>
\n\u00a0 var<\/span>
\n\u00a0 \u00a0 hFind, hRes: THandle;<\/span>
\n\u00a0 \u00a0 Song: PChar;<\/span>
\nbegin<\/span>
\n\u00a0 hFind:=FindResource(HInstance, PChar(TheWave), ‘WAVE’);<\/span>
\n\u00a0 if hFind<>0 then<\/span>
\n\u00a0 \u00a0 begin<\/span>
\n\u00a0 \u00a0 \u00a0 hRes:=LoadResource(HInstance, hFind);<\/span>
\n\u00a0 \u00a0 \u00a0 if hRes<>0 then<\/span>
\n\u00a0 \u00a0 \u00a0 \u00a0 begin<\/span>
\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Song:=LockResource(hRes);<\/span>
\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 if Assigned(Song) then\/\/test voor nil, als Song is nil, dan false anders true<\/span>
\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 SndPlaySound(Song, snd_Sync or snd_Memory);<\/span>
\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 UnlockResource(hRes);<\/span>
\n\u00a0 \u00a0 \u00a0 \u00a0 end;<\/span>
\n\u00a0 \u00a0 \u00a0 FreeResource(hFind);<\/span>
\n\u00a0 \u00a0 end;<\/span>
\nend;<\/span>
\n<\/b><\/span>
\nIn deze routine zitten iets meer tests om te kijken of alles in orde is, eigenlijk wel zo netjes.
\nHier hebben we geen memory-stream nodig. Dat heeft te maken met de routine SndPlaySound. Voor details over deze routine verwijs ik graag naar de Delphi-help.<\/p>\nEen iets andere aanpak gaan we gebruiken voor het afspelen van een MP3.
\nDe procedure zal heten:<\/p>\n procedure PlayMP3FromRes(TheMP3: string);<\/span>
\n<\/b><\/span>
\nEn we gebruiken hem als volgt:<\/p>\nPlayMP3FromRes(‘JOURNAAL’);<\/span>
\n<\/b><\/span>
\nDe implementatie:<\/p>\nprocedure PlayMP3FromRes(TheMP3: string);<\/span>
\n\u00a0 var<\/span>
\n\u00a0 \u00a0 rStream: TResourceStream;<\/span>
\n\u00a0 \u00a0 fStream: TFileStream;<\/span>
\n\u00a0 \u00a0 fname: string;<\/span>
\n\u00a0 \u00a0 mp: TMediaPlayer;<\/span>
\nbegin<\/span>
\n\u00a0 fname:=ExtractFileDir(Paramstr(0))+’\\’+TheMP3+’.MP3′;<\/span>
\n\u00a0 rStream := TResourceStream.Create(hInstance, TheMP3, RT_RCDATA);<\/span>
\n\u00a0 try<\/span>
\n\u00a0 \u00a0 fStream := TFileStream.Create(fname, fmCreate);<\/span>
\n\u00a0 \u00a0 try<\/span>
\n\u00a0 \u00a0 \u00a0 fStream.CopyFrom(rStream, 0);<\/span>
\n\u00a0 \u00a0 finally<\/span>
\n\u00a0 \u00a0 \u00a0 fStream.Free;<\/span>
\n\u00a0 \u00a0 end;<\/span>
\n\u00a0 finally<\/span>
\n\u00a0 \u00a0 rStream.Free;<\/span>
\n\u00a0 end;<\/span>
\n\u00a0 mp := TMediaPlayer.Create(Form1);<\/span>
\n\u00a0 mp.ParentWindow := Form1.Handle;<\/span>
\n\u00a0 mp.Visible := False;<\/span>
\n\u00a0 mp.Close;<\/span>
\n\u00a0 mp.FileName := fname;<\/span>
\n\u00a0 mp.Open;<\/span>
\n\u00a0 mp.Play;<\/span>
\nend;<\/span>
\n<\/b><\/span>
\nIn plaats van een Memory-stream gebruiken we hier een echte file-stream. Nadeel is wel dat nu het bestand JOURNAAL.MP3 wordt aangemaakt.
\nVerder maken we gebruik van een MediaPlayer omdat deze in staat is MP3’s af te spelen.
\nDe MediaPlayer wordt met het afsluiten van de applicatie vernietigd.
\nVergeet hier niet de Unit mplayer aan te roepen.<\/p>\nAls laatste gaan we de html-resource gebruiken.<\/p>\n De procedure heet:<\/p>\n procedure LoadHTMLFromRes(TheHTML: string);<\/span>
\n<\/b><\/span>
\nEn je gebruikt hem als volgt:<\/p>\nLoadHTMLFromRes(‘INFONL’);<\/span>
\n<\/b><\/span>
\nDe implementatie is redelijk simpel:<\/p>\nprocedure LoadHTMLFromRes(TheHTML: string);<\/span>
\n\u00a0 var<\/span>
\n\u00a0 \u00a0 ResURLStr: string;<\/span>
\n\u00a0 \u00a0 ModuleName: array[0..255] of Char;<\/span>
\nbegin<\/span>
\n\u00a0 GetModuleFileName(hInstance, ModuleName, 255);\/\/retourneert het pad+bestandsnaam van de applicatie<\/span>
\n\u00a0 ResURLStr:=’res:\/\/’ + StrPas(ModuleName) + ‘\/RT_HTML\/’+TheHTML;\/\/StrPas zet een 0-terminated-string om naar een Pascal-string<\/span>
\n\u00a0 Form1.WebBrowser1.Navigate(ResURLStr);<\/span>
\nend;<\/span>
\n<\/b><\/span>
\nEr zijn natuurlijk ook andere routines in Delphi om pad+bestandsnaam te achterhalen, maar deze werkt ook.
\nKijk voor het gebruik van de WebBrowser naar de help van Delphi.<\/p>\nZoals beloofd komt hier de complete source-code van het project:<\/p>\n \n Complete code<\/span>\n \n unit Unit1;<\/span>interface<\/span><\/p>\nuses<\/span>
\n\u00a0 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<\/span>
\nComCtrls, ExtCtrls, StdCtrls, JPEG, mmsystem, MPlayer, Menus, OleCtrls,<\/span>
\nSHDocVw;<\/span><\/p>\ntype<\/span>
\n\u00a0 TForm1 = class(TForm)<\/span>
\n\u00a0 \u00a0 Panel1: TPanel;<\/span>
\n\u00a0 \u00a0 Animate1: TAnimate;<\/span>
\n\u00a0 \u00a0 btnAanUit: TButton;<\/span>
\n\u00a0 \u00a0 rgrTaal: TRadioGroup;<\/span>
\n\u00a0 \u00a0 Image1: TImage;<\/span>
\n\u00a0 \u00a0 Timer1: TTimer;<\/span>
\n\u00a0 \u00a0 Image2: TImage;<\/span>
\n\u00a0 \u00a0 MainMenu1: TMainMenu;<\/span>
\n\u00a0 \u00a0 mnuBestand: TMenuItem;<\/span>
\n\u00a0 \u00a0 mnuBestandLaden: TMenuItem;<\/span>
\n\u00a0 \u00a0 mnuBestandSep1: TMenuItem;<\/span>
\n\u00a0 \u00a0 mnuBestandAfsluiten: TMenuItem;<\/span>
\n\u00a0 \u00a0 mnuHulp: TMenuItem;<\/span>
\n\u00a0 \u00a0 mnuHulpCopyright: TMenuItem;<\/span>
\n\u00a0 \u00a0 Panel2: TPanel;<\/span>
\n\u00a0 \u00a0 WebBrowser1: TWebBrowser;<\/span>
\n\u00a0 \u00a0 Label1: TLabel;<\/span>
\n\u00a0 \u00a0 procedure btnAanUitClick(Sender: TObject);<\/span>
\n\u00a0 \u00a0 procedure FormCreate(Sender: TObject);<\/span>
\n\u00a0 \u00a0 procedure rgrTaalClick(Sender: TObject);<\/span> |