NLDelphi

Hoe kun je zien of een deel text uit een stringgrid veld geseleteerd is

TheKing971 — Sat, 04 Sep 2010 14:12:50 GMT

Ik had gehoopt dat StringGrid1.Cells[StringGrid1.col, StringGrid1.row].sellength zou werken om te kijken of er tekst is geselecteerd in een cell van een stringgrid.
Maar dat werkt helaas niet, heeft iemand een tip ?
Ik hoef niet eens een positie of lengte te weten , als ik maar kan achterhalen
of er een deel tekst uit een cell is geselecteerd.

Elekronische identiteitskaart. Gebruik van certificaten

JantjeB — Thu, 02 Sep 2010 21:45:24 GMT

Hoi allen,

Steeds meer krijg ik de vraag om te koppelen met webdiensten die inlogprocedures gebruiken via de eid, door gebruik te maken van de aanwezige certificaten.
Ik vind echter betrekkelijk weinig info op het net om via de middle-ware procedures te ontwikkelen die het mogelijk maken om deze te kunnen toepassen.

Zijn er hier mensen die verstand hebben van deze acties, of eventueel inhuurbaar zijn om een component te schrijven die deze taken automatiseert?

Jan

merge clientdataset

Tsar — Thu, 02 Sep 2010 15:21:36 GMT

ik heb een aantal @runtime aangemaakte clientdataset's.waarvan de structuur identiek is.

Ik wil nu de data uit deze clientdatatsets samenvoegen.
Bestaat er een kortere methode of moet ik deze ��n per ��n overlopen en telkens een append doen.

(De data @runtime onmiddellijk in 1 dataset is echter niet mogelijk.)

selecteer row in multiselect cxgrid

Th0ny — Thu, 02 Sep 2010 14:36:59 GMT

Hey,

Ik heb een cxgrid multiselect gemaakt en dit werkt op zich prima.

Alleen bij het openen van het scherm is er nu geen regel meer geselecteerd (in ieder geval niet grafisch).

Weet iemand welke optie het is om bij multi select toch altijd minimaal 1 regel geselecteerd te hebben.

Indien dit geen optie is , hoe selecteer ik dan via de code een regel (eerste of een willekeurige) ?

OpenGL performance, wat is normaal?

WhatJac3 — Thu, 02 Sep 2010 14:25:36 GMT

Hallo,

Ik weet niet precies waar deze topic thuis hoort dus vandaar maar even hier. Ik heb wat problemen met mijn applicatie en de performance daarvan. Via allerlei profilers kom ik niet echt tot een goede oplossing. Mijn probleem is het volgende:

Ik teken lijntjes mbv OpenGL. Deze lijntjes hoeven niet regelmatig opnieuw berekent te worden. Ik heb ze daarom in een displaylist geplaatst en roep de displaylist aan. Echter als ik een redelijke hoeveelheid lijntjes (orde 20.000 tot 30.000) heb verdeelt over 2 displaylist wordt de performance echt slecht. Als ik daar een rubberband lijntje overheen wil tekenen zit er ongeveer 0.3 seconde tussen mijn muismove en het moment dat de rubberband lijn is bijgewerkt. Dit is echt veel te veel. Ik heb al hardware acceleratie aanstaan op de videokaart maar het is nog steeds een dram of heb ik nou te hoge eisen? Zou het niet mogelijk moeten zijn voor een videokaart (computer van een half jaar oud ongeveer) om in een split second een stuk of 30.000 lijntjes te tekenen waarvan ruim 99% in een displaylist zit?

Ik ga ervanuit dat echte graphics toch wel meer dan 20.000 lijnen (lees:polygonen) tekenen met een FPS van meer dan 30, of heb ik te hoge eisen?

Data editten in een view

shakstege — Thu, 02 Sep 2010 13:48:31 GMT

Hallo, ik heb al het een en ander gelezen over het editen van data via een view, maar heb mijn situatie er nog niet bij zien staan.

Volgende is het geval; ik heb een view aangemaakt waarin ik gegevens uit mijn eigen tabel combineer met gegevens uit een andere database welke op dezelfde server draait, echter heb ik op die tweede database geen schrijfrechten.

Als ik in mijn testomgeving de applicatie test dan kan ik middels de view alle data wijzigen. Dat komt (denk ik) omdat ik binnen mijn test omgeving schrijfrechten heb.

Hoe kan ik er voor zorgen dat ik in real life de velden uit mijn eigen tabel kan updaten via de view? (Ik gebruik Left joins in mijn view).

Gebruikte componenten: ADOConnection, ADODataSet, ADODataSource, DBGrid voor het tonen van de gegevens, Server draait SQL server 2000.

Hercree�ren van een instantie van een Class

JantjeB — Thu, 02 Sep 2010 12:22:38 GMT

Hoi,

Je hebt een Class TA.

Code:

Type TA = Class

  //leuke dingen

end;

Nu maak ik een variable aan C van het type TA.

Code:

var

C : TA;



begin

C := TA.Create;

//Doe leuke dingen

C := TA.Create;

//Doe leuke dingen

C := TA.Create;

//Doe leuke dingen



end;

Of, mag je, zonder eerst de instantie vrij te geven (C.Free) gewoon terug een create uitvoeren, zonder dat dit allerlei narigheden met het geheugen van de pc doet die dan weer tot instabiliteiten leiden?

Hier in dit voorbeeldje maak ik geen gebruik van try...finally, wat ik normaal wel doe, kwestie van alles mooi op te ruimen.

Licentie ODBC

Tsar — Thu, 02 Sep 2010 08:29:58 GMT

Met een paar delphi programma's lees ik gegevens uit een Oracle database.
Het uitlezen gebeurt via een ODBC connectie. (er worden met de eigen toepassingen geen gegevens weggeschreven in deze database, enkel gelezen)

De Oracle database zelf staat er voor aangekochte toepassingen waarbij het nodige in orde is wat de oracle licentie's betreft.

Moet ik voor de ODBC connectie's ook over een of andere licentie beschikken om in orde te zijn ?

New GUID in typelibrary gooit functies/procedures weg

Leonmeijer — Thu, 02 Sep 2010 07:30:37 GMT

Hallo,

Ik ben een DLL aan het schrijven voor MS Outlook, deze maakt gebruik van een typelibrary, echter wil ik voor de TToolsOptionsPage (pagina in de opties) de guid veranderen dus open ik de tlb en klik bij de interface "IToolsOptionsPage" op New Guid daarna ook voor de coClass ToolsOptionsPage.

Hierna zie ik in de pas file alle declaraties e.d. "verdwijnen" voor ToolsOptionsPage en kan ik vervolgens nog wel compilen maar registreren van de DLL geeft fouten.

De GUID moet veranderd worden omdat een andere DLL deze guid al gebruikt.

In de bijlage zit de TLB + pas file kan iemand mij zeggen hoe ik de GUID kan aanpassen en ervoor kan zorgen dat niet alle propertys e.d. weglopen?

Bijgesloten Bestanden

DLL.zip (2,8 KB)

Bevindingen nieuwe Embarcadero IDE XE

PiSymbol — Wed, 01 Sep 2010 17:47:18 GMT

Heeft iemand toevallig al RAD Studio XE, Delphi XE of C++ Builder XE ge�nstalleerd en geprobeerd? Wat zijn je bevindingen?

http://www.embarcadero.com/products/rad-studio

kast <-> tabel

Wok — Wed, 01 Sep 2010 17:32:21 GMT

Ik heb op zoek naar iets waarbij je visueel een voorraadkast met vakken kan tonen, en deze kan koppelen aan een database.
zodat je kan zien, of en hoeveel voorraad er is.
Pogingen met een drawgrid of een stringgrid lopen op niets uit
of gaan zo traag dat het niet werkbaar is.
Heeft iemand wat tips, de stellingen zijn planken van 9 hoog met bakjes waarbij er max 9 naast elkaar staan en soms 2 achter elkaar.

Peter

Media Player visualizations/equalizer

SpaceCow — Wed, 01 Sep 2010 16:48:03 GMT

Hallo,

Ik ben bezig met het bouwen van een digitaal lichtorgel vanuit een Media Player.

Ik heb al netjes de MP3 loader, volume regelaar en alle benodigde knoppen maar ik zoek nog iets waarmee ik bepaalde tonen kan meten.

Kort gezegt moet ik dus alle frequenties van het geluid filteren om daarna meters uit te laten slaan.

Zit dit al standaard in de Media Player? Alvast bedankt!

Stringlist opslaan in stukjes

sneezesnoeze — Wed, 01 Sep 2010 10:20:24 GMT

Ik heb een bestand

1 rood
2 rood
3 rood
4 groen
3 groen
5 groen
5 geel
6 geel
7 geel

Dit staat nu in een stringlist. Met objecten.
MyStringList.AddObject(1, TKleurObject.Create(1, rood)); enz.

Nu wil ik de stringlist opslaan in losse bestandjes
bestandje_rood.txt
bestandje_groen.txt
bestandje_geel.txt

Routine
Voor elke regel in de lijst
Kijk welke kleur
als kleur nog niet bestaat maak nieuwe kleurlijst (ook tstringlist)
Als kleur al bestaat voeg toe aan die kleurlijst

save alle kleurlijsten naar file

Ik heb het idee dat ik heel omslachtig bezig ben, kan dit efficienter?

Functie geeft niet dezelfde resultaat

jkuiper — Wed, 01 Sep 2010 08:27:30 GMT

Ik heb hier iets heel vreemd. Een aantal klanten hebben klanten in Scandinavi� zitten. Deze gebruiken heel veel karakters zoals '�'. Op zich kan Windows dat wel aan, maar het bestand, wat wordt verwerkt komt van Unix. Unix gebruikt een andere code instelling dan Windows.
Nu heb ik een prima functie, die dat allemaal voor mij goed converteert:

delphi Code:

function TBasePrClass.SpecialKaracters(value : string) : string;
var R: RawByteString;
    Gedaan : boolean;
begin
  R := RawByteString(value);
  SetCodePage(R,437,Gedaan);
  result := string(R);
end;

Deze functie, zit in een PersistentClass, die gebruikt wordt door andere classes. Daardoor wordt deze functie een onderdeel van de aangeroepen class en werkt deze binnen zijn eigen class goed.
Maar als ik deze zelfde functie in een aparte unit plaatst, wordt er niet goed geconverteerd. Voorbeeld:

binnen de class : M�LSTA BLOMMOR AB
in een aparte unit : M?LSTA BLOMMOR AB

Nu vraag ik mij af waarom de functie in een aparte unit niet werkt.
Ik heb deze functie ook nodig in een andere form, omdat de naam van de klant per record wordt getoond (zie bijlage)

Bijgesloten Plaatje(s)

Stringgrid en Picklist

Peter H — Tue, 31 Aug 2010 20:29:16 GMT

Ik wil items toevoegen aan een picklist die als standaard editor in een stringgrid zit.

Ik kan de editor zichtbaar maken in de OnSelectEditor event maar ik kan nergens terug vinden hoe ik de picklist kan 'vullen' met items.

Het voorbeeld dat ik heb gevonden (zie hieronder) geeft de foutmelding 'Class Elist error with message :listindex 2 out of bounds.

Onderstaande staat in de onSelectEditor event :

Code:

if acol = 2 then

   begin

   Editor := stgPC.EditorByStyle(cbsPicklist);

   stgPC.Columns.Items[2].PickList.Clear;

   stgPC.Columns.Items[2].PickList.Add('one');

   stgPC.Columns.Items[2].PickList.Add('two');

   stgPC.Columns.Items[2].PickList.Add('three');



   end;

Ik heb het vermoeden dat de Add acties op een verkeerde plek staan. Ik zou alleen niet weten waar ik ze wel kwijt zou moeten...

Alvast bedankt !

Dartbord

TheKing971 — Tue, 31 Aug 2010 14:09:13 GMT

Vorig jaar ben ik naar de Hands-on Developer Workshop geweest en
heb me daar een dartbord gewonnen wat hier op lijkt alleen staat er
dan ook nog het logo en de naam van Embarcadero op.
Natuurlijk was ik heel blij en wil ook niet ondankbaar zijn, maar ik
hoop dat ik er iemand blij mee kan maken die iets met Delphi en darten heeft.

Het bord kan gratis opgehaald worden in Castricum of Purmerend.
Hoeft niet gelijk weg, dus kan ook als je een keer in de buurt bent.
Mochten er meer genodigden zijn dan gaat hij naar diegene die zich
het meest heeft ingezet op het forum. Waarbij ik mezelf natuurlijk uitsluit,
anders zou ik hem aan mezelf moeten geven :-)

Je hoeft alleen maar aan te geven dat je belangstelling hebt, ik PM je dan wel voor verdere gegevens.

Scope binnen classes

JantjeB — Tue, 31 Aug 2010 11:28:01 GMT

Hoi allen,

Er is iets wat ik mij al een tijdje afvraag, maar eignelijk nooit een afdoende antwoord op vind, ik vraag het dan even schoorvoetend (omdat het eigenlijk basiskennis zou moeten zijn :rolleyes: )

Wat is nu juist de scope en of betekenis van :

A : private versus protected (verschil)
B : published

Thx...

Syntax fout in FROM

Dubbeld — Tue, 31 Aug 2010 10:53:20 GMT

Hallo allemaal,

Ik krijg een foutmelding : Syntax fout in FROM, zie onderstaande tekst

SELECT * FROM Indeling,
Set Hoofdstuk = "Arrays"
, SubHoofdstuk = "ByteArraysEqual"

Indeling is een tabel welke in Access is gemaakt. Iemand een idee wat er fout is in bovenstaande query? Gebruik ADO componenten om de database te kunnen updaten.

Groet, Frans

meerdere sleutelwaarden in 1 query

shakstege — Tue, 31 Aug 2010 10:04:23 GMT

Hallo,

Ik heb twee tabellen; articles en employees.
in de articles tabel komen de voldende velden voor:

id, articlenumber, creator_id, updater_id

Nu wil ik een query uitvoeren waarbij het creator_id en updator_id worder vervangen voor de achternaam van diegene die het record heeft gecreeerd en geupdate heeft. De achternaam staat in de employees tabel.

Het is me wel gelukt door middel van een JOIN het eerste veld (creastor) te vervangen, maar ik weet even niet hoe ik dat voor het tweede veld kan doen. De Query die ik gebruik is de volgende:

Code:

select arcticles.articlenumber, employees.lastname AS creator

from articles INNER JOIN employees ON

articles.creator_id = employees.id

Gegevens uit externe form

SpaceCow — Tue, 31 Aug 2010 09:53:57 GMT

Hallo,

Met een PageControl functie importeer ik Frames in mijn Form.

Nu wil ik variabelen aan de Frame meegeven vanuit mijn Form. Hoe kan ik dit het beste doen? Ik poogde

Code:

TForm1.Edit.Caption := 'test';

Maar dit werkt uiteraard niet.

Ben benieuwd hoe ik dit op kan lossen. Alvast bedankt!

Unieke sleutels

JantjeB — Tue, 31 Aug 2010 09:32:30 GMT

Hoi,

Ik ben aan het denken over het maken, genereren van unieke sleutels.
Microsoft bied de GUID aan, maar dan ben je wel gebonden aan een database van MS, daar deze alleen de GUID ondersteunen (ik kan hier fout zijn) of ik moet de GUID als een string naar de DB sturen.
Uiteraard zou dit gepruts zijn, vandaar mijn vraag :

Hoe maak ik unieke sleutels, die bruikbaar zijn over verschillende databases, zodat ik bij synchronisatie van de data mij niet moet bezig houden met hernummeren van de data en alle relaties tussen hen.
Liefst numeriek...

Bestaan hier generators voor?

Jan

webcam capture component?

cliov6 — Tue, 31 Aug 2010 09:11:28 GMT

Hallo,

Ik ben op zoek naar een component waarmee ik met mijn webcam screenshots kan maken. Kent iemand een component, of heeft iemand misschien source ter beschikking, om screenshots mee te kunnen maken?

bvd
Joost

Wat is de functie van een datamodule

Frankeman — Tue, 31 Aug 2010 07:47:59 GMT

Hoi,

Wat is nu precies de funtie van een datamodule ?

Ik zag dat je er geen visuele componenten op kan zetten zoals een button.
Is het alleen voor database gebruik, of gebruik je het ook om je gebruikers instellingen in te beheren en dergelijke (opslaan en ophalen).
Kan iemand dit toelichten of een goede link neerzetten.

Frank.

Executable runnen

L_V — Tue, 31 Aug 2010 07:07:36 GMT

Ik wil graag de executable van delphi runnen op een computer waar geen delphi op geinstalleerd staat. Dit zou moeten kunnen toch?
Echter, als ik dit probeer komt er meteen een foutmelding met: Exception EDBEngineError in module. Corrupt table/index header.

Weet iemand wat dit betekent en hoe dit opgelost kan worden?

Alvast bedankt!

Enkele quote in zoek tekst SQL

UD2008 — Tue, 31 Aug 2010 05:06:18 GMT

Hallo mensen,

Ik zit met een probleem, dit is wat ik probeer voor elkaar te krijgen:

Ik heb een edit text veld, waarmee ik kan zoeken in de database.

In de database zitten records met bijv. 's. Hoe kan ik dit aan het edit veld toevoegen zodat het in de query herkend wordt?

Ik heb op google gezocht en kwam daar veel adquery.filter met van QuotedStr opties tegen.
Ik geprobeerd door een regel toe te voegen aan de volgende code:

Code:

SQL.Add('SELECT * FROM songs');

        SQL.Add('WHERE Songtitle');

        SQL.Add('LIKE ''%'+Edit1.Text+'%''');

        filter := QuotedStr(Edit1.Text);

Maar dit werkte niet, krijg de melding dat er een parameter mist (wanneer ik probeer te zoeken met 's).

PNG Components "Left Cannot Be Assigned To" Probleem

NickOnline — Mon, 30 Aug 2010 22:47:10 GMT

Hey,

Zoals sommigen van jullie misschien weten is PNG Components niet helemaal compatible met Delphi 2009.
Ook ik heb hier last van, ondanks dat ik custom made bestanden heb gedownload van de CodeGear community.
Het gaat hier om een "Left cannot be assigned to" probleem.

Iemand die me hierbij kan helpen?

De fouten zijn als volgt:

Code:

[DCC Error] pngimage.pas(2509): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2510): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2511): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2531): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2532): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2533): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2567): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2598): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2627): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2676): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2677): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2678): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2701): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2702): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2703): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2872): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2873): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2874): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2891): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2892): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2893): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2923): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2924): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2938): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2939): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2974): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2975): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2976): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2993): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2994): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(2995): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3384): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3385): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3386): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3441): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3442): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3443): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3576): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3577): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3578): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3630): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3677): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3678): E2064 Left side cannot be assigned to

[DCC Error] pngimage.pas(3679): E2064 Left side cannot be assigned to

[DCC Fatal Error] PngBitBtn.pas(6): F2063 Could not compile used unit 'pngimage.pas'

Het .pas bestand kun je hier downloaden.

Alvast bedankt!

Form meegeven in functie

SpaceCow — Mon, 30 Aug 2010 20:54:27 GMT

Hallo,

Ik wil een TForm variabel meegeven aan een functie om deze zo eenvoudig in te kunnen laden.

Nu gebruik ik bijvoorbeeld:

Code:

function ImportForm (FormName: TForm) : boolean;

begin

   FormName.Show;

end;

Maar dit werkt totaal niet. Kan iemand mij een zetje in de goede richting geven? Alvast heel erg bedankt.

Delphi PageControl

SpaceCow — Mon, 30 Aug 2010 18:40:35 GMT

Hallo,

Ik ben bezig met het opbouwen van modulair software waarmee ik een modulair systeem aanstuur.

Samen met een vriend heb ik een printplaat ontworpen die modulair op te bouwen is dus moet ik er software bij ontwikkelen dat daarop perfect aan kan sturen. Het is bijvoorbeeld 1 moederprint met 3 relais prints en 2 PWM prints.

De software die ik wil maken moet met tabs werken. heb 1 relais print met code "123" en 1 met "234". Nu maak ik een tab aan die communiceert met code "123", deze moet exact dezelfde invoervelden als "234" hebben maar niet dezelfde data.

Hoe kan ik hetzelfde invoerveld in tabs meerdere keren gebruiken? Uiteindelijk wil ik tussen tabs kunnen schakelen waardoor ik redelijk overzichtelijk alle prints kan besturen.

Alvast bedankt!

Delphi XE, Sons of Kahn style.

marcov — Mon, 30 Aug 2010 18:16:39 GMT

Een nieuwe versie, een nieuwe Sons of Kahn. De laatste volgens het artikel...

http://www.theregister.co.uk/2010/08...ahn_apocrypha/

verberg taskbar button

Ron — Mon, 30 Aug 2010 16:02:18 GMT

ik ben bezig met een plugin (.dll) met daarin een Form.
hoe kan ik een form aanmaken zonder een button op mijn taskbar??

Dit werkt niet
ShowWindow(handle, SW_HIDE)

alvast bedankt.

syntax error

UD2008 — Mon, 30 Aug 2010 10:19:50 GMT

Hallo allemaal,

Ik probeer in mijn lokale mysql database te zoeken, dit doe ik doormiddel van een textbox, combobox en een button.

De code als volgt werkt (dit is een gedeelte van de code).

Code:

SQL.Add('SELECT * FROM songs');

    SQL.Add('WHERE Songtext');

    SQL.Add('LIKE ''%'+Edit1.Text+'%''');

    //SQL.Add('OR LIKE ''%'+RichEdit1.Text+'%''');

Maar eigelijk wil ik als volgt:

Code:

SQL.Add('SELECT * FROM songs');

    SQL.Add('WHERE Songtitle, Songtext');

    SQL.Add('LIKE ''%'+Edit1.Text+'%''');

    SQL.Add('OR LIKE ''%'+RichEdit1.Text+'%''');

Helaas krijg ik dan een syntax error, de twee keer in de WHERE en de OR LIKE zijn het probleem.

Hoe kan ik dit oplossen.

Thanks

Een update vanuit een andere tabel laatste record

Falencia — Mon, 30 Aug 2010 09:58:43 GMT

Beste heren van deze website.

Voor school moet ik een database maken met verschillende sql stukken erin.

NU heb ik als case een restaurant met daarin een klantbestelling. ( als klantbestelling word aangemaakt word het gehele product gelijk uit voorraad gehaald)

Nu heb ik dus tabel voorraad

SQL Code:

CREATE TABLE Voorraad
       (ArtikelID    INTEGER NOT NULL,
        Aantal       INTEGER,
        CONSTRAINT PrimaryKey PRIMARY KEY (Aantal, ArtikelID),
        CONSTRAINT ArtikelenVoorraad FOREIGN KEY (ArtikelID) REFERENCES Artikelen(ArtikelID) ON UPDATE CASCADE);

en tabel klantbestelling met daarin

SQL Code:

CREATE TABLE Klantbestelling
       (ID           AUTOINCREMENT(8, 1) NOT NULL,
        Bonnr        INTEGER,
        ArtikelID    INTEGER,
        Aantal       INTEGER,
        Datum        DATE,
        CONSTRAINT PrimaryKey PRIMARY KEY (ID),
        CONSTRAINT Klb_Art FOREIGN KEY (ArtikelID) REFERENCES Voorraad(ArtikelID),
        CHECK        (Aantal > 0));

(1 bnr heeft meerdere artikelen)

(de check is om te voorkomen dat een klantbestelling word aangemaakt als er geen product is genomen)

NU wil ik dus dat als ik query klantbestelling aanmaken uitvoer dat die gelijk de voorraad bijwerkt.

Nu dacht ik heel simpel door de query klantbestelling te doen;

SQL Code:

INSERT INTO Klantbestelling VALUES (1,1,1,0,#05-08-2010#);

en dan vervolgens moet de werknemer een querry aanklikken die de voorraad update doormiddel van de laaste klantbestelling te gebruiken.

(dus medewerker maakt eerst een klantbestelling aan en vervolgens klikt die daarna op update database om de laaste klantbestelling te veranderen in voorraard.

Maar ik weet niet hoe ik dit voor elkaar moet krijgen

ALvast bedankt voor de hulp!

Arjen

Memory Leak / Thread problem

organizer — Mon, 30 Aug 2010 02:04:57 GMT

I heb hetvolgende om een XML file in een Memo te zetten.
Dit komt van

http://www.delphi-zone.com/2010/03/h...htmldocument2/

En dit is de code

Code:

uses

  mshtml, ActiveX, ComObj;



procedure TForm1.Button1Click(Sender: TObject);

var

  IDoc: IHTMLDocument2;

  Strl: TStringList;

  sHTMLFile: string;

  v: Variant;

  Links: IHTMLElementCollection;

  i: Integer;

  Link: IHTMLAnchorElement;

begin

  if OpenDialog1.Execute then

  begin

    sHTMLFile := OpenDialog1.FileName;

    Strl := TStringList.Create;

    try

      Strl.LoadFromFile(sHTMLFile);

      Idoc := CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;

      try

        IDoc.designMode := 'on';

        while IDoc.readyState <> 'complete' do

          Application.ProcessMessages;

        v := VarArrayCreate([0, 0], VarVariant);

        v[0] := Strl.Text;

        IDoc.Write(PSafeArray(System.TVarData(v).VArray));

        IDoc.designMode := 'off';

        while IDoc.readyState <> 'complete' do

          Application.ProcessMessages;

        Memo1.Lines.Text := IDoc.body.innerText;

      finally

        IDoc := nil;

      end;

    finally

      Strl.Free;

    end;

  end;

end;

Nu komt dit 2x erin voor

Code:

while IDoc.readyState <> 'complete' do Application.ProcessMessages;

Ik zie in mijn debug dat hij 2 threads aanmaakt maar nooit meer sluit.
Met als geval dat mijn EXE file in memory van 27Mb in 5 minuten tijd naat 610 Mb gaat.

Neem aan dat dit niet normaal is.
Is er iets wat ik kan doen, om die Threads weer te sluiten?

Hoe een (jaar)planner op te zetten

scs — Sat, 28 Aug 2010 23:43:17 GMT

Hallo,

Voor een manege wil ik een lesuurplanningsprogramma maken, waarbij het volgende als uitgangspunt moet dienen:

Indelen per jaar - spreekt voor zich

Indelen per week - aantal weken per jaar (53)

Indelen per dag - maandag t/m zaterdag

Indelen per uur van 09:00 t/m 21:00 uur (09:00 - 10:00, 10:00 - 11:00, enz)

Maar ik zit gelijk al met de volgende vraag:

Hoe dien ik de gegevens op te slaan (en later weer bekijken/opvragen) zonder een gigantisch aantal databases te gebruiken?

Ik kan er (maar) niet achter komen hoe soortgelijke programma's hun gegevens opslaan.

In het bijgevoegde plaatje heb ik een opzetje gemaakt hoe e.e.a. eruit (kan) komen te zien.

Dirk.

Bijgesloten Thumbnails

TADOQeuries zijn verbinding kwijt bij opstarten applicatie

fbockstael — Sat, 28 Aug 2010 14:41:11 GMT

Ik heb in mijn Project een DataModule met een 15-tal tabellen in een Access database. De tabellen worden aangesproken via evenveel TADOQueries.
Telkens als ik het project in Delphi open zie ik een foutmelding dat het Access bestand niet is gevonden.
Ik moet dan weer opnieuw de connectionstring maken en alle tabellen van Active false op Active true zetten.

Wat zou er aan de hand kunnen zijn?

Bedankt voor het meedenken alvast.

Rave lege preview

fbockstael — Sat, 28 Aug 2010 14:25:46 GMT

Ik heb in Rave een report gemaakt en opgeslagen op de locatie: C:\Program Files\Common Files\Test\testform.rav

Op mijn Form1 staat een Button1 en een RVSystem1.

Als ik in Rave het report oproep zie ik duidelijk de inhoud.

Aan Button1 heb ik de volgende code gehangen:

Code:

begin

   RvSystem1.Execute;

end;

Ik krijg een keurig schermpje waarin ik voor Preview kies en dan is het report ineens leeg, zonder inhoud.
In de RvSystem1 heb ik bij de property FileName netjes het bovenstaande pad ingegeven en de Property DefaultDest staat op rdPreview

Kan iemand mij aub vertellen wat ik over het hoofd zie?

Bedankt vast.

Autotyper maken

Jilles — Fri, 27 Aug 2010 20:00:23 GMT

heey om te leren zou ik graag een autotpyer maken, het luikte me wel met vb

Code:

timer1.start

sendkeys ('memo1') or something

maar in delphi heb ik een memo, 2 buttons en een times

Code:

button 1 = timer.enable := true

button 2 = timer.enable := false

en memo1 is gewoon memo

nu probeer ik bij timer: sendkey(memo1.text)
maar dat werkt niet:(

--Jilles

TWideStringField Size property

pcoenen — Fri, 27 Aug 2010 19:58:54 GMT

Ben bezig met een ClientDataset aan te maken. Ik ga deze als geheugen database gebruiken. Om ze Unicode ready te maken wil ik gebruik maken van TWideStringField velden. De string waardes die in deze velden gaan komen kunnen zeer kort zijn (1 karakter) tot zeer lang (32767 karakters). Ik zit wat verveeld met de size property. Indien ik deze waarde nu zeer hoog zet (32767) gaat dit dan geen geheugen vretende toestanden opleveren. Zou ik misschien beter een TWideMemoField in de plaats nemen waar je de size op nul kan laten staan en die het geheugen van zo een velden (klein-groot) beter regelt (denk ik?). Wat denken jullie? :confused:

Programma stoppen met Esc

Hansvb — Fri, 27 Aug 2010 19:54:29 GMT

Hoi,

Ik wil de uitvoering van het programma stoppen met Esc.
Dit dacht ik te doen met de volgende code.

Code:

  if Key = VK_ESCAPE then

   begin

      ControleStoppen := True;

      Logging.WriteToLog('Controle door gebruiker afgebroken');

      Main_Frm.Caption := 'Esc';  //Tijdelijk ter controle of dit wordt uitgevoerd

      Exit;

    end;

De caption van de main_from wordt direct "Esc" als ik op Esc druk. Maar de gestarte routine gaat door.

De routine die loopt is:

Code:

  if (nGeoSql = 1) and

     (nGeoLegenda = 1) then //Alles opvragen

    begin  //Opschonen en sql uitvoeren



      while Main_Frm.ControleStoppen = False do

      begin

          Geo_Legenda(0);           //Groupbox items GroupBox_Geo_Aant opschonen

          Geo_Legenda(1);           //Groupbox items GroupBox_Geo_Aant_Rel opschonen

          Geo_Legenda(2);           //Groupbox items GroupBox_Geo_Dub_Rel opschonen

          Geo_VoerStatementsUit(0); //Geografie aantallen

          Geo_VoerStatementsUit(1); //Geografie relaties

          Geo_VoerStatementsUit(2); //Geografie dubbele relaties

          Geo_VoerStatementsUit(4); //gegevens naar een textbestand schrijven

          Geo_Legenda(3);           //Groupbox items GroupBox_Geo_Aant kleuren indien nodig

          Geo_Legenda(4);           //Groupbox items GroupBox_Geo_Aant_Rel kleuren indien nodig

          Geo_Legenda(5);           //Groupbox items GroupBox_Geo_Dub_Rel kleuren indien nodig

          Main_Frm.StatusBar1.Panels[0].Text := '';

      end;





    end;

Ik vermoed dat Exit niet doet wat ik verwacht.

Wat zit er mis in het bovenstaande?

internet verkeer

Arthur Habraken — Fri, 27 Aug 2010 19:27:56 GMT

stel ik wil zoiets maken als Net Nanny, die al het internetverkeer controleert, om zodoende opgegeven sites te blokkeren voor mijn kinderen. Hoe kan ik dat doen in Delphi, kan iemand mijop weg helpen ?

Groet,
ARthur

Ascii lezen

M3E30 — Fri, 27 Aug 2010 18:37:07 GMT

Goedeavond,

Ik ondervind een probleem met Delphi waar ik werkelijk niks van snap. Hopelijk kan hier iemand helpen.

Ik moet wat informatie uit een Ascii file halen en aan de hand van 2 criteria moet een element van elke regel uit deze Ascii file wel of niet in een set gezet worden. Dit is een gedeelte van mijn code:

Code:

procedure TForm5.Button1Click(Sender: TObject);

function DisplayElements(const MOGELIJKHEDEN : LANDEN) : string;

 var

   element : lands; resultss:string;

 begin

 result:= '';

 resultss:='0,';

    for element in MOGELIJKHEDEN do

    begin

     result := result + ' ' +IntToStr(element);

     resultss := resultss+inttostr(element)+',';

    end;

 assignfile(results,'C:\Documents and Settings\joeph\Mijn documenten\MATLAB\FLEUREN\results.txt.');

 reset(results);

 append(results);

 writeln(results,resultss);

 closefile(results);



 end;

var beschikbaarheid1,beschikbaarheid2,beschikbaarheid3,beschikbaarheid4,beschikbaarheid5,beschikbaarheid6: textfile; w, SOORTEN,result,dailyworkinghours:string;

copyland,teller,copyindex,i,j,u,numberlands,index,land,daydifference,kersaanwezig, appelaanwezig, peeraanwezig, binarykerswerken, binaryappelwerken, binarypeerwerken,copykersaanwezig, copyappelaanwezig, copypeeraanwezig, copybinarykerswerken, copybinaryappelwerken, copybinarypeerwerken, t: integer;

type

lands = 1..6;

LANDEN = set of lands;

var

subset,DAGKERS1,DAGAPPEL1,DAGPEER1,KERSPEER1, APPELPEER1, KERSAPPEL1, KERSAPPELPEER1,PEER1,PEERsub1,PEERsubb1,APPEL1,APPELsub1,APPELsubb1,KERS1,KERSsub1,KERSsubb1,

DAGKERS2,DAGKERSAPPEL1, DAGKERSAPPEL2, DAGKERSAPPEL3, DAGKERSAPPEL4, DAGKERSAPPEL5, DAGKERSAPPEL6,DAGAPPEL2,DAGPEER2,KERSPEER2, APPELPEER2, KERSAPPEL2, KERSAPPELPEER2,PEER2,PEERsub2,PEERsubb2, APPEL6, APPELsub2,APPELsubb2,KERS2,KERSsub2,KERSsubb2,

     DAGKERS3,DAGAPPEL3,DAGPEER3,KERSPEER3, APPELPEER3, KERSAPPEL3, KERSAPPELPEER3,PEER3,PEERsub3,PEERsubb3,APPEL2,APPELsub3,APPELsubb3,KERS3,KERSsub3,KERSsubb3,

     DAGKERS4,DAGAPPEL4,DAGPEER4,KERSPEER4, APPELPEER4, KERSAPPEL4, KERSAPPELPEER4,PEER4,PEERsub4,PEERsubb4,APPEL3,APPELsub4,APPELsubb4,KERS4,KERSsub4,KERSsubb4,

     DAGKERS5,DAGAPPEL5,DAGPEER5,KERSPEER5, APPELPEER5, KERSAPPEL5, KERSAPPELPEER5,PEER5,PEERsub5,PEERsubb5,APPEL4,APPELsub5,APPELsubb5,KERS5,KERSsub5,KERSsubb5,

     DAGKERS6,DAGAPPEL6,DAGPEER6,KERSPEER6, APPELPEER6, KERSAPPEL6, KERSAPPELPEER6,PEER6,PEERsub6,PEERsubb6,APPEL5,APPELsub6,APPELsubb6,KERS6,KERSsub6,KERSsubb6:LANDEN;

begin

  numberlands:=strtoint(Edit1.text);

  assignfile(beschikbaarheid1, 'C:\Documents and Settings\joeph\Mijn documenten\MATLAB\FLEUREN\beschikbaarheid1.txt.');

  reset(beschikbaarheid1);

  assignfile(beschikbaarheid2, 'C:\Documents and Settings\joeph\Mijn documenten\MATLAB\FLEUREN\beschikbaarheid2.txt.');

  reset(beschikbaarheid2);

  assignfile(beschikbaarheid3, 'C:\Documents and Settings\joeph\Mijn documenten\MATLAB\FLEUREN\beschikbaarheid3.txt.');

  reset(beschikbaarheid3);

  assignfile(beschikbaarheid4, 'C:\Documents and Settings\joeph\Mijn documenten\MATLAB\FLEUREN\beschikbaarheid4.txt.');

  reset(beschikbaarheid4);

  assignfile(beschikbaarheid5, 'C:\Documents and Settings\joeph\Mijn documenten\MATLAB\FLEUREN\beschikbaarheid5.txt.');

  reset(beschikbaarheid5);

  assignfile(beschikbaarheid6, 'C:\Documents and Settings\joeph\Mijn documenten\MATLAB\FLEUREN\beschikbaarheid6.txt.');

  reset(beschikbaarheid6);



 for u := 1 to (numberlands+1) do

 begin

 result:=result+inttostr(100)+',';

 end;

 assignfile(results,'C:\Documents and Settings\joeph\Mijn documenten\MATLAB\FLEUREN\results.txt.');

 reset(results);

 append(results);

 writeln(results,result);

 closefile(results);

 i:=0;

 begin

  if (SOORT[i] = 1) or (SOORT[i] = 4) or (SOORT[i] = 5) or (SOORT[i] = 7) then

    begin

    reset(beschikbaarheid1);

         while not (eof(beschikbaarheid1)) do

              begin

                readln(beschikbaarheid1,land,kersaanwezig,appelaanwezig,peeraanwezig,binarykerswerken,binaryappelwerken,binarypeerwerken);

                  if (kersaanwezig = 1) and (binarykerswerken = 0) then

                  begin

                    subset:=[];

                    subset:=[land];

                    DAGKERS1:= DAGKERS1+subset;

                  end;

              end;

       end;

Dit is een voorbeeld van mijn Ascii file (de 3 enen en nullen per rij zijn binary en kunnen veranderen, bij dit specifieke voorbeeld werkt bovenstaande code in ieder geval niet) , "beschikbaarheid1":

Citaat:

1 1 1 1 0 0 0
2 1 1 1 0 0 0
3 1 1 1 0 0 0
4 1 1 1 0 0 0
5 1 1 1 0 0 0
6 1 1 1 0 0 0
7 1 1 1 0 0 0
8 1 1 1 0 0 0
9 1 1 1 0 0 0
10 1 1 1 0 0 0
11 1 1 1 0 0 0
12 1 1 1 0 0 0
13 1 1 1 0 0 0
14 1 1 1 0 0 0
15 1 1 1 0 0 0
16 1 1 1 0 0 0
17 1 1 1 0 0 0
18 1 1 1 0 0 0
19 1 1 1 0 0 0
20 1 1 1 0 0 0

Wat is nu het geval: in beginsel werkt mijn code prima; de file "beschikbaarheid1" wordt regel voor regel gelezen en indien aan de 2 eisen in de IF statement voldaan wordt, wordt het 1e getal van elke rij aan een set toegevoegd. Echter...na rij 7 stopt het programma met werken. Er wordt dan niet meer verder gelezen/het eerste getal van elke rij wordt niet meer aan de set toegevoegd. Hier snap ik niks van!

Als ik de file slechts 6 rijen lang maak gaat hij netjes elke rij af tot en met de 6de. Als ik hem 9 lang maak stopt hij ook bij de 7de. Wat o wat gaat hier fout????

Alvast hartelijk dank!

Joep

IPTypes.pas: IPv4 en IPv6 custom variant types

NGLN — Fri, 27 Aug 2010 18:25:36 GMT

IPTypes.pas, een unit bomvol met conversieroutines van en naar IP-adressen in de bekende IPv4 en IPv6 formaten.

Tevens registreert de unit "custom variant types" voor deze speciale dataformaten waarmee je onder andere onderstaande bewerkingen kunt uitvoeren:

Delphi Code:

procedure TForm1.Log(const S: String);
begin
  Memo.Lines.Add(S);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  I4: TIPv4;
  I6: TIPv6;
  V1, V2, V3, V4: Variant;
begin
  I4 := StrToIPv4('192.0.2.128');
  I6 := IPv4ToIPv6(I4);
  V1 := VarIPv6Create('2001:db8:85a3:0:0:8a2e:0370:7334');
  V2 := IPv6ToVar(I6);
  V3 := V1 - V2;
  V4 := V1 or V2;
  if V3 < V4 then
    Log(V3 + ' is kleiner dan ' + V4);
  if V2.Equals('::ffff:192.0.2.128') or V2.IsZero then
    Log('OK');
  Log('V1 = ' + V1.AsStringOutwritten);
  Log('V2 = ' + V2.AsURL);
  Log('V3 = ' + V3.AsStringCompressed);
  V4.Follow;
end;

Wel, als dit niet een enorm handige unit voor IP-adressen is (lees: "leuk, maar ik zie het nut er niet zo van in"), zie het dan als een naslagwerk van het maken van een custom variant type.

Waar te vinden?

Op de VCS-server, zie: http://svn.nldelphi.com/nldelphi/opensource/ngln/

Zoeken in Tlistbox

Ivar — Fri, 27 Aug 2010 17:54:50 GMT

Hallo,

Ik heb een TListbox met een verzameling namen.
Hoe verwezenlijk ik een zoekopdracht?
Een knop, of invoerveld waar ik een naam typ, en dat dan de betreffende naam geselecteerd wordt in de listbox.

Bedankt.

Record opslaan in een TObjectList

organizer — Fri, 27 Aug 2010 16:50:55 GMT

Ik zit te spelen met een Tobjectlist (nog nooit eerder gebruikt) maar
krijg een error dat het niet compatible is. Dus vraag me eigen af of dit wel
goed is.

Code:

Myinfo = record

  Naam : string;

  Plaats: string;

end;





Var

Informatie : Tobjectlist;





en dan in een procedure



  

Informatie :=Tobjectlist.create;

Informatie.Add(Myinfo);

extra informatie bij listview item of dbgrid.cell

jkuiper — Fri, 27 Aug 2010 13:56:10 GMT

Als ik deze computer opstart, zie ik mijn lokale schrijven staan. Als ik daar met mijn muis op een schrijf ga staan, wordt er extra informatie getoond in een soort geel messagebox van dat item.

Is dat ook te realiseren in delphi. Ik zag in TListItem dat daar geen onmovemouse of iets dergelijks bestaat. Ik wil wat extra informatie tonen in mijn listview en eigenlijk ook in een dbgrid per cel.

Ik heb nog niets. Ben alleen aan het ori�nteren.

Assembly to com to Delphi

JantjeB — Fri, 27 Aug 2010 13:39:40 GMT

Hoi,
Weet niet of het op zijn plaats staat hier, maar ik zit met het volgende :

Ik heb een .net assembly die ik zou moeten benaderen vanuit Delphi.
Ik beschik echter alleen over de dll's, niet over source-code, maar ik zou deze com-visible moeten kunnen maken.

Is er binnen .net een mogelijkheid om dit te doen?
Ik beschik over D2010, D PRism 2010 en C#, maar heb geen idee waar ik moet beginnen zoeken.

Thx....
Jan

PS : Heb ook alles in java, maar daar is wss nog minder kans toe.

functie wordt niet goed uitgevoerd

jkuiper — Fri, 27 Aug 2010 12:39:58 GMT

Ik heb iets heel raars met deze functie:

delphi Code:

function TForm1.GetMNumber(const bestand : string) : smallint;
var lengte : integer;
    matrixnrfromstring : string;
    SecondStripe  : smallint;
begin
  lengte := pos('_',bestand);
  if lengte > 0 then
  begin
    for SecondStripe := (Lengte + 1) to length(bestand) do
      if (bestand[SecondStripe] = '_') or (bestand[SecondStripe] = '.') then
        break;
    if Secondstripe >= length(bestand) then
      result := 1
    else
    begin
      matrixnrfromstring := copy(bestand,lengte,Secondstripe - 1);
      result := StrToINtDef(matrixnrfromstring,1);
    end;
  end else
    result := 1;
end;

De parameter bevat deze string: 44929_2_SRV_01.winprn.done
De functie zal bepalen waar de eerste underscore staat. Als de lengte groter is dan 0 dan moet de rest van de functie worden uitgevoerd en het getal 2 moeten teruggeven. Echter wordt er na deze routine ( if lengte > 0 then) geheel uit de functie gesprongen en geeft al resultaat het getal 1.
Tenminste de debugger vertelt mij dat. Maar ik zie de fout niet :confused:

Drive letters tonen

hoochie — Fri, 27 Aug 2010 11:05:56 GMT

Ik wil in mijn prog een dropdown lijstje laten zien met daarin enkel de nog beschikbare drive letters op een computer.

Kan iemand mij hierbij helpen hoe dit te verwezenlijken ?

snelle filtering clientdataset

robgusta — Fri, 27 Aug 2010 07:44:05 GMT

Beste mensen.
Ik zoek een snelle filter manier in een clientdataset (zonder koppeling met een externe tabel). Dus alles vindt plaats in het geheugen
Ik heb begrepen dat een sql dan niet mogelijk is (heeft een externe tabel nodig)
De clientdataset heeft 70.000 record -> daarin wordt 4000 keer een filter toegepast.
Met filtered werkt dit erg traag !!!!!
Is er een snellere manier ?????
EEn deel van mijn code, zie bijlage

Bijgesloten Bestanden

clientdataset_filter.txt (1,1 KB)

New Audio Components (NewAC)

Ruud123 — Fri, 27 Aug 2010 04:59:53 GMT

Heeft er hier iemand ervaring met de 'New Audio Components' van Andrei Borovsky?
Het is een aardige set componenten voor diverse audio bewerkingen, maar ik ervaar er een probleem mee.
Ik wil graag het audio extraheren uit een WMV bestand.
Hiertoe zijn er twee componenten aanwezig: een WmIn component voor het lezen van WMV/WMA audio, en een WaveOut component voor het opslaan van het audio als WAV.
Het gebruik is uitermate eenvoudig:

Code:

 WmIn1.FileName := OpenDialog1.FileName;

 Label1.Caption:='Samplerate = '+IntToStr(WmIn1.SampleRate);

 Label2.Caption:='Aantal kanalen = '+IntToStr(WmIn1.Channels);

 WaveOut1.FileName:='C:\Audio.wav'; 

 WaveOut1.Run;

Helaas levert dit bij mij een 'lege' WAV file op met de juiste lengte!
Ik heb inmiddels al contact opgenomen met de auteur van de componenten, maar hij zegt dat het onder Windows 7 goed werkt. Dat is mooi, maar ik wil het gebruiken onder Windows XP, en dat zou natuurlijk ��k moeten kunnen! :D
Het merkwaardige is dat als ik de regels:

Code:

 Label1.Caption:='Samplerate = '+IntToStr(WmIn1.SampleRate);

 Label2.Caption:='Aantal kanalen = '+IntToStr(WmIn1.Channels);

uit commentarieer, de conversie w�l goed verloopt. Nu vind ik het altijd nogal lastig de code geschreven door een ander snel en goed te doorgronden, dus ik vroeg me af of iemand hier dit probleem misschien (toevallig) eens is tegengekomen of mij in de richting van een oplossing kan wijzen?
Vanzelfsprekend ben ik zelf al in de (meegeleverde) sourcecode gedoken, maar ik verdwaal er in... Suggesties?

N.B: als ik na het opvragen van de samplefrequentie en het aantal kanalen nog een keer:

Code:

WmIn1.FileName := OpenDialog1.FileName;

toevoeg,werkt het w�l, maar krijg ik per keer een geheugenlek van 20 bytes. Niet om direct wakker van te liggen natuurlijk, maar netjes is anders...
Kennelijk wordt er ergens iets gesloten dat niet gesloten had mogen worden, of wordt er (in het laatste geval) iets geopend dat niet afgesloten wordt.
Wie weet er iets meer? (Of ziet hier een uitdaging in...)