Bedankt !!
Notepad was idd een voorbeeld...
Code werkt goed, het is voor een applicatie met touchscreen.
Type: Posts; User: fred76; Keyword(s):
Bedankt !!
Notepad was idd een voorbeeld...
Code werkt goed, het is voor een applicatie met touchscreen.
Ik probeer een applicatie te maken die keyboard events verstuurt.
Deze moeten in bijv. notepad weer uitgelezen worden.
Dit lukt goed, alleen niet als notepad geminimaliseerd is.
Onderstaande code...
Ik vind een ebook ook niks. Ik moet het boek op schoot hebben liggen.
Ga nogmaals proberen.
Hier een fragment v.d. code. Is misschien een beetje crappy.
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus,...
Amazon ging moeizaam, maar ik heb een on-line versie gevonden:
https://www.hasustorm.com/books/English/Sybex.Mastering.Delphi.7.eBook-LiB.chm
vraag me af of dit 'legaal' is...
OK, bedankt... (ook voor het verplaatsen)
Heeft iemand het ISBN nr. van Mastering Delphi 7 ?
En kan iemand een (boek,internet) tip geven over vcl development ?
Of staat er genoeg over vcl in Mastering Delphi 7 om zelf te gaan bouwen ?
Kijk naar mijn voorbeeld.
Gebruik shr of shl
Of bedoel je wat anders ?
Je kunt meestal geen WORD versturen. Het is of een byte-buffer of characters (string).
Vandaar dat het uit elkaar getrokken moet worden...
Goeie tip !
Als mijn project uit de klauwen dreigt te lopen qua grootte ga ik dit ook doen.
Red je het hiermee ?
var b1,b2 : byte ;
nInt : WORD ;
nInt := StrToInt(Edit1.Text) ;
b1 := nInt shr 8 ;
b2 := nInt AND $FF ;
Mijn suggestie : Download comport
Je bent dan klaar met :
Comport1.WriteStr(Edit1.Text) ;
kijk hier eens:
http://www.delphifans.com/SoftView/SoftView_2119.html
Bij RS232 verstuur je meestal bytes.
Je kunt de integer opdelen in vier bytes:
var b1,b2,b3,b4 : byte ;
nInt : Integer ;
nInt := StrToInt(Edit1.Text) ;
b1 := nInt shr 24 ;
Ik wil ze niet in dezelfde unit hebben vanwege duidelijk overzicht in de code.
Ik weet zeker dat ik de types niet ga veranderen. 1MB is een limiet die nooit gehaald gaat worden, dus groter wordt de...
Ik had in de constructor ook de typed pointer:
TDataFind = class(TOBject)
...
constructor Create(pArray : PMassiveArrayType) ;
deze herkende hij niet, dus ik had 'm gedeclareerd. Dit werkt...
Wederom bedankt.
Als ik een typed pointer probeer door te geven, begrijpen de classes elkaar niet.
Ik declareer ze in beide classes:
type PMassiveArrayType = ^TMassiveArrayType ;
met...
Bedankt voor de tips !! De code werkt. Ik weet alleen niet of de tweede class (TDataFind) nu ook 1 MB reserveert:
type TMassiveArrayType = array[0..1048575] of byte ;
...
var
Form1:...
Hoe kan ik een array[0..1048575] doorgeven naar een andere class ?
Ik heb pointers geprobeerd, maar het lijkt dan niet mogelijk afzonderlijke bytes te lezen uit de array.
Ik wil zoiets als...