RE: [DUG]: Quality Icons
Hmmm, Ethics, Microsoft, Ethics, Microsoft...Yeah go for it! Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Patrick Dunford [mailto:[EMAIL PROTECTED]] Sent: Wednesday, 05 September 2001 10:11 a.m. To: Multiple recipients of list delphi Subject: RE: [DUG]: Quality Icons You install MS Office, screen dump their apps and make the bitmaps from the dumps :) Seriously I have found that the use of icons from MS applications is extremely widespread. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Alan Rose Sent: Wednesday, 5 September 2001 09:49 To: Multiple recipients of list delphi Subject: [DUG]: Quality Icons Hi, can someone recommend where I can purchase or download quality icons or bitmaps for buttons. Most sites I have found on the net are of poor quality. I am looking for a set that will give my application a consistent look. -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: 'scuse me eh, dis be a test mon.
I be mucking around wit' de mail rules mon, and you's all sendin' not enough mail mon. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: Is it a bug?
Bwahahahahahaha! Can't believe I never spotted that before. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Sergei Stenkov [mailto:[EMAIL PROTECTED]] Sent: Monday, 27 August 2001 4:49 p.m. To: Multiple recipients of list delphi Subject: [DUG]: Is it a bug? Hi, Project - Options - Directories/Conditionals and then click on any of the browse buttons that brings up a form with a memo component containing a list of paths. Now try to resize this form and make it bigger (taller in particular). Anything unusual? Checked it on another machine and it has the same effect. Looks like a D5 bug. Regards, Sergei -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: Give me a hint?
1) I need to programmatically make a hint appear in a TStringGrid. 2) When the hint appears (automatically or programmatically) in the StringGrid, I need to move the hint and change it's text based on the cell it's over. ie: When they move between date cells it needs to move to meet the cursor in the new cell and display the day of the week for the new cell. Thanks. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: Registry....
If this is on Windows 95 then it'll probably be the same thing I was
grappling with on the list a month or so ago.
Try adding a backslash to the end of the Key:
'\SOFTWARE\Namadgi Systems\Cricket\'
Instead of:
'\SOFTWARE\Namadgi Systems\Cricket'
Luke Pascoe Delphi Programmer
enSynergy Consulting LTD
[EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590
Level 4, 10-12 Federal St, Auckland, New Zealand
PO Box 32521, Devonport, Auckland 1330, New Zealand
-Original Message-
From: Donovan J. Edye [mailto:[EMAIL PROTECTED]]
Sent: Friday, 10 August 2001 6:42 p.m.
To: Multiple recipients of list delphi
Subject: [DUG]: Registry
G'Day,
The following code writes a new value to the specified key (I can see it
with reg edit) but The_Registy.ReadString('AppGUID'); always returns an
empty string even though there is a value in the key. Anybody got any clues?
TIA
//Now do the GUID from the registry
The_Registy := TRegistry.Create;
The_Registy.RootKey := HKEY_LOCAL_MACHINE;
if The_Registy.OpenKey('\SOFTWARE\Namadgi Systems\Cricket', False)
then
begin
The_Settings.AppGUID := The_Registy.ReadString('AppGUID');
if Trim(The_Settings.AppGUID) = '' then
begin
//We do not have a GUID so create one
OleCheck(CoCreateGUID(AGUID));
The_Settings.AppGUID := GUIDToString(AGUID);
//Should we have created it then write it back to the
registry
//as it was not there in the first place
The_Registy.WriteString('AppGUID', The_Settings.AppGUID);
end;
The_Registy.CloseKey;
finally
FreeAndNil(The_Registy);
end;
-- Donovan
--
Donovan J. Edye [www.edye.wattle.id.au]
Namadgi Systems [www.namsys.com.au]
Voice: +61 2 6285-3460
Fax: +61 2 6285-3459
TVisualBasic = Class(None);
Heard just before the 'Big Bang': ...Uh Oh
--
GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer
replacement. Also includes freeware delphi windows explorer components.
--
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: Free book.
I have a book to give away: Delphi 3 SuperBible by Paul Thurrott, Gary Brent, Richard Bagdazian and Steve tendon. I bought it for $20 at borders a year or so ago. Asside from my name on the inside back cover it's untouched and has a companion CD that I've never even opened. Why am I giving it away? Who cares! First one to contact me and is willing to arrange postage can have it. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: Kylix now Free for Open Source Projects
I Am Not A Lemming? If A Neighbour Asks, Lie!? In All Nests Are Leaves? Im A Nasty Arthritic Lecher? Important Artists Never Are Living? (That's a bad one, I know) Que? Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Neven MacEwan [mailto:[EMAIL PROTECTED]] Sent: Friday, 27 July 2001 9:39 a.m. To: Multiple recipients of list delphi Subject: Re: [DUG]: Kylix now Free for Open Source Projects Nic I've never met anyone brave enough to use IANAL - good for you :-) Neven - Original Message - From: Nic Wise [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Sent: Friday, 27 July 2001 09:34 Subject: Re: [DUG]: Kylix now Free for Open Source Projects Even more importan question... if Kylix uses any GPLed code, then doesn't the GPL require it to be open-source too? Just a thought : yes it does, and no, AFAIK, we dont. But IANAL. N -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: Monitoring a service
I'm about to begin dabbling in Services and have no idea where to start. I've guessed that the service itself will be a TServiceApplication, but I will need a service monitor as well. How do you interface this (I assume) seperate app with the service module? Also, Can more than one service of the same type be run/monitored at a time? If anyone could suggest some documentation online I'd appreciate it. Thanks. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: TEdit Selection
Does that offer extend to other interested parties? (Kin'I'va look too?) Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Paul Lowman [mailto:[EMAIL PROTECTED]] Sent: Monday, 23 July 2001 12:21 p.m. To: Multiple recipients of list delphi Subject: Re: [DUG]: TEdit Selection Wilfred I have a little code implementing the inbuilt windows autocomplete feature. If its of any interest let me know and I'll send it to you. Paul Lowman Lowman Consulting Ltd. Embedded Systems Software [EMAIL PROTECTED] -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: Massive? It's not so big...
Thanks for all the suggestions, Using the TListView in virtual mode solved all my problems :) It has reliably works with files list 450,000! Thanks to Mark and others who gave suggestions. Luke Pascoe. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: RE: [DUG]: Speaking of things massive...
Still have to write code to handle cursor keys, mouse clicks, scroll bar movements... But it's an option, I'm hoping the OwnerData will do what I want. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Tuesday, 17 July 2001 9:02 a.m. To: Multiple recipients of list delphi Subject: Re:RE: [DUG]: Speaking of things massive... Can you not just us an ordinary list / Combo Box and manually copy the required strings across - let the VCL do the drawing stuff (i.e. dump the current contents copy a new 10 in and call refresh - can't remember if refresh or similar is req'd) Regards Paul McKenzie = Paul McKenzie Jetbet II Developer = [EMAIL PROTECTED] Ph: (04) 576-6822 T.A.B. National Office 106-110 Jackson Street Petone New Zealand Reply Separator Subject: RE: [DUG]: Speaking of things massive... Author: [EMAIL PROTECTED] Date: 17/07/2001 09:02 Yeah, a TList laps it up and begs for more :-) But I was trying to avoid manually writing copious manual drawing/scrolling routines. Thus far the TListView OwnerData looks like the way to go (Didn't get a chance to try it last night) Luke Pascoe. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Tuesday, 17 July 2001 8:27 a.m. To: Multiple recipients of list delphi Subject: Re:[DUG]: Speaking of things massive... What about throwing it into a TList or similar and only displaying what you want out of it ... Just a thought as I have no idea about the capabilities of a TList in the 100,000's Regards Paul McKenzie = Paul McKenzie Jetbet II Developer = [EMAIL PROTECTED] Ph: (04) 576-6822 T.A.B. National Office 106-110 Jackson Street Petone New Zealand Reply Separator Subject: [DUG]: Speaking of things massive... Author: [EMAIL PROTECTED] Date: 16/07/2001 17:09 Has anyone worked with file lists in the millions? I'm having trouble building an on-screen display of files once the number gets above 20K or so. The TListView handles the numbers, but takes ages (15 mins per 100,000 files, getting slower as more files are added). The TListBox is fast but croaks after 10K files in everything except Win2k. I can generate the file list in memory in a matter of seconds, but can't find a quick way to display them on screen. If worst comes to worst I'll use a TDrawGrid since it seems to handle the numbers and is quick, but that strikes me as an ugly way to do it. Any ideas? Luke Pascoe. -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/(See att1.eml) -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/(See attached file: att1.eml) --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: How to track this one down...
I had something wierd like this a while ago, but at the start of my app as well. Turned out the icon I was using was too large (file size, not real size) Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand -Original Message- From: Steve Aish [mailto:[EMAIL PROTECTED]] Sent: Tuesday, 17 July 2001 12:27 p.m. To: Multiple recipients of list delphi Subject: [DUG]: How to track this one down... I have an interesting bug that has just turned up. I have been developing a program for the last 3 months - on and off. Suddenly whenever I close the program after running it I get the following error: Project POSVis.exe raised Exception Class EInvalidPointer with Message 'Invalid Pointer Operation'. Process Stopped. Use step or run to continue. After pressing OK and continuing I get 'Runtime Error 217 at 3F02' The annoying thing is that it is after all my code is run and the program is doing it's automatic clean up thing. If I step through the code after the exception is raised it stops at: Application.CreateForm(TMain, Main); Application.CreateForm(TUpdateDatabase, UpdateDatabase); Application.CreateForm(TWaiting, Waiting); Application.Run; end. - code stops here I can't figure out how one would step through the code after this. The only way of getting rid of this is to delete about half of my forms... Does anyone know how to step through the cleanup process? Steve --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: Warning: Stupidity virus.
I have just endured an attack of the stupidity virus. Symptoms: Opening many files for reading (via a TFileStream) with open flags fmCreate or fmShareExclusive Result: Many 0 byte files where usefull files once resided. Solution: Scream Oh Sh*t and begin smacking forehead, closely followed by burying of face in hands and groaning. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: Speaking of things massive...
Has anyone worked with file lists in the millions? I'm having trouble building an on-screen display of files once the number gets above 20K or so. The TListView handles the numbers, but takes ages (15 mins per 100,000 files, getting slower as more files are added). The TListBox is fast but croaks after 10K files in everything except Win2k. I can generate the file list in memory in a matter of seconds, but can't find a quick way to display them on screen. If worst comes to worst I'll use a TDrawGrid since it seems to handle the numbers and is quick, but that strikes me as an ugly way to do it. Any ideas? Luke Pascoe. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: Speaking of things massive...
Heh, I wish it were that easy :-) My app iterates through a list of files and generates MD5 checksums for them. Some of my users wish to checksum entire HDDs which contain (I am told) millions of files. Asside from simply displaying a progress (No reason I coudn't except vanity) there's no way to cut down the number of files that must be displayed. The thing is, there'd only ever be 100 visible on screen so I can't imagine why these components fall over. Myles: But the List view does support a virtual mode, which is just supposed to be for this kind of thing - see Brad Stowers http://www.delphifreestuff.com Thanks, I'll take a look at that. Luke Pascoe -Original Message- From: Manning, John [mailto:[EMAIL PROTECTED]] Sent: Monday, 16 July 2001 5:09 p.m. To: Multiple recipients of list delphi Subject: RE: [DUG]: Speaking of things massive... Hi Luke, Has anyone worked with file lists in the millions? I'm having trouble building an on-screen display of files once the number gets above 20K or so. Maybe an alternate user interface would be required here? Apart from the potentially slow performance, 20K file names sounds like a few too many for a user to navigate through. Maybe you could set up some sort of filter to decide on a subset of files to display? Regards, John -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: Speaking of things massive...
Thanks Mark, I'll give that a go. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Mark Derricutt [mailto:[EMAIL PROTECTED]] Sent: Monday, 16 July 2001 5:32 p.m. To: Multiple recipients of list delphi Subject: Re: [DUG]: Speaking of things massive... property OwnerData: Boolean; Description Set OwnerData to True to specify that the list view is virtual. A virtual list view can contain a huge number of items (specifically, up to a DWORD). However, you must manage the items of a virtual list view using the OnData, OnDataFind, OnDataHint, and OnDataStateChange event handlers. The only information contained in a virtual list view control is the selection and focus information. To improve the peformance of a virtual list view control, you should cache items for quick retrieval. The OnDataHint event can help you optimize retrieval from the cache. --On Monday, July 16, 2001 5:09 PM +1200 Luke Pascoe [EMAIL PROTECTED] wrote: Has anyone worked with file lists in the millions? I'm having trouble building an on-screen display of files once the number gets above 20K or so. -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: Blockwrite strings
On second thought, I don't think this will work. If it needed a PChar rather than a string, the first character written would be binary followed by the string. But this didn't happen. Back to the drawing board. Don't forget StringVar[1] - I mentioned this first because in my experience when a buffer is wanted this is what works (for example reading/writing streams) --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
[DUG]: urgent response needed
Under Win95 my app cannot read from the registry. the reg access call is as
follows:
function GetRegStringEntry(Root: HKey; Key, Value: String;
var Res: String): Boolean;
// Returns success, result in Res
begin
Result := False;
with TRegistry.Create do begin
RootKey := Root;
if OpenKey(Key, False{This is CanCreate}) then
try
try
if ValueExists(Value) then
begin
Res := ReadString(Value);
Result := True;
end
else
showmessage('value doesnt exist');
except
showmessage('exception');
end;
finally
Free;
end
else
Showmessage('openkey failed');
Free;
end;
end;
It fails at openkey only when CanCreate is False (writing to the registry is
fine BTW) and if I make CanCreate True then ReadString causes an access
violation. The data is there and OK, all the params are correct. it works
under everything except 95.
Anyone know a way to fix this or at least what's causing it?
Luke Pascoe Delphi Programmer
enSynergy Consulting LTD
[EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590
Level 4, 10-12 Federal St, Auckland, New Zealand
PO Box 32521, Devonport, Auckland 1330, New Zealand
== I.H.T.F.P. ==
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
RE: [DUG]: urgent response needed
Robert said: Sounds like the registry key doesnt actually exist. When you set cancreate to true it creates the key for you and your readstring fails because there is no value. Could be wrong, Friday afternoon and all :) The key exists (and values within it) as proved by looking at them in regedit and the fact that I'm using the same constant to get and set them. Bevan said: Have you tried using OpenKeyReadOnly instead of OpenKey? Yep. No go. Using OpenKey(KeyName, True) returns true, but then any call to ReadString (or ReadAnything) causes an access violation. Luke. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: urgent response needed
Yep. No go. Using OpenKey(KeyName, True) returns true, but then any call to ReadString (or ReadAnything) causes an access violation. Get rid of the with statement and see how it goes... Already been there, no go :-( Luke. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: urgent response needed
I assume that the String's exist in the key. Is it defined as a String in the Registry, or something else? Yep, its a string - But the problem is not just strings, its _anything_! Luke. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: urgent response needed
with TRegistry.Create( KEY_READ OR KEY_WRITE ) do begin Nope. No change. Also ... does this fail with any key? Or is it specific to this one key in your example? Seems to be any key, although all the ones I've tried are in the same parent key. The wierd thing is that writing the values is no problem, no complaints. I con't figure out why reading/writing would behave so differently. Luke. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: urgent response needed
FOUND THE B*STARD - The key constant I was using was: \Software\enSynergy\AppName\ A random inspiration particle hit me and I tried it without the final \ Lo and Behold...They're coming to take me away, Haha! Hehe! to the funny farm Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Friday, 22 June 2001 5:46 p.m. To: Multiple recipients of list delphi Subject: Re: [DUG]: urgent response needed Have you shown the code you use to store the value? ** This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the [EMAIL PROTECTED] ** -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
[DUG]: AVI
Merry humpday to y'all :-) I need to create a small (32x32) 8 frame AVI for use in a TAnimate. I've been looking high and low for an app to do this, but to no avail (found a few, but they're all crappy) The best one I found made a nice AVI but wouldn't do a transparent background. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: Run Once Code
You can cheat and use CreateMutex:
Replace MyAppNameString with a string identifier that's unlikely to be
used by someone elses app.
== c0de ==
procedure AppStartup;
var
Mutex: THandle;
begin
Mutex := CreateMutex(NIL, False, 'MyAppNameString');
if WaitForSingleObject(Mutex, 100) = WAIT_TIMEOUT then
begin
ShowMessage('App is already running on this computer.');
Application.Terminate
end;
end;
== /c0de ==
Luke Pascoe Delphi Programmer
enSynergy Consulting LTD
[EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590
Level 4, 10-12 Federal St, Auckland, New Zealand
PO Box 32521, Devonport, Auckland 1330, New Zealand
== I.H.T.F.P. ==
-Original Message-
From: Colin Fraser [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, 19 June 2001 4:38 p.m.
To: Multiple recipients of list delphi
Subject: [DUG]: Run Once Code
Hi,
Does anyone have handy any code that will stop an application
running more
than once instance...
I know there are some components around that you can just
dump on the main
form, but what I am after is to programmatically control how
the app starts.
For example, if there is a certain command line parameter
then start a new
instance, otherwise bring the new instance to the front and
process the new
command line parameters.
Regards
Colin
##
Attention:
The information in this email and in any attachments is
confidential.
If you are not the intended recipient then please do not distribute,
copy or use this information. Please notify us immediately by return
email and then delete the message from your computer.
Any views or opinions presented are solely those of the author.
##
--
-
New Zealand Delphi Users group - Delphi List -
[EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
[DUG]: Messages
Hello again. How do you send/post a message to a component that doesn't have a handle (Like a TGraphicControl)? BTW, The component will be sending the message to itself, but it needs to go via the message queue so DispatchMessage is no good. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: Messages
Thanks, I'll try that. Is there any penalty to having a handle? slows it down? Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Nahum Wild [mailto:[EMAIL PROTECTED]] Sent: Monday, 18 June 2001 3:46 p.m. To: Multiple recipients of list delphi Subject: RE: [DUG]: Messages Found what I was talking about, I was wrong in that its not a windows API function, but rather a delphi function located in forms.pas. Which is why I couldn't find it in the windows help. :) function AllocateHWnd(Method: TWndMethod): HWND; procedrue DeallocateHWnd(Wnd: HWND); Hope, that its usefull, Nahum. -Original Message- From: Nahum Wild [mailto:[EMAIL PROTECTED]] Sent: Monday, June 18, 2001 15:17 PM To: Multiple recipients of list delphi Subject: RE: [DUG]: Messages Its not that because the one I remember using returns a handle, but you pass it a pointer to the function which will handle any messages sent to the returned handle. Allowing you to embed message handling functionality into anything - Singleton Managers are always a really good target for this, especially in a threaded environment. Nahum. -Original Message- From: Nello Sestini [mailto:[EMAIL PROTECTED]] Sent: Monday, June 18, 2001 15:18 PM To: Multiple recipients of list delphi Subject: Re: [DUG]: Messages There is a windows API function that will create a window handle when called that messages can be sent to, except that I can't remember what its called!!! CreateWindow? ducks -ns -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
[DUG]: I don't recall if I already asked this but...
...How do you trap the tab key in a TEdit and stop it moving focus to the next component? I want to trigger an event on tab. OnKeyDown/Press doesn't work, and OnKeyUp is too late :-( Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: I don't recall if I already asked this but...
Thanks :-)
Luke Pascoe Delphi Programmer
enSynergy Consulting LTD
[EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590
Level 4, 10-12 Federal St, Auckland, New Zealand
PO Box 32521, Devonport, Auckland 1330, New Zealand
== I.H.T.F.P. ==
-Original Message-
From: Marshall, Paul [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, 13 June 2001 4:29 p.m.
To: Multiple recipients of list delphi
Subject: RE: [DUG]: I don't recall if I already asked this but...
Luke,
Here's a component I've used for this:
type
TTabEdit = class(TEdit)
private
FAcceptTabs:Boolean;
procedure WMGetDlgCode(var message: TMessage); message
WM_GETDLGCODE;
public
property AcceptTabs : Boolean read FAcceptTabs write FAcceptTabs;
end; { TTabEdit }
procedure TTabEdit.WMGetDlgCode(var message: TMessage);
begin
if AcceptTabs then
message.Result := DLGC_WANTARROWS or DLGC_WANTCHARS or
DLGC_WANTTAB
else
message.Result := DLGC_WANTARROWS or DLGC_WANTCHARS;
end; { WMGetDlgCode }
Regards, Paul.
-Original Message-
From: Luke Pascoe [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 13, 2001 4:25 PM
To: Multiple recipients of list delphi
Subject: [DUG]: I don't recall if I already asked this but...
...How do you trap the tab key in a TEdit and stop it moving
focus to the
next component? I want to trigger an event on tab.
OnKeyDown/Press doesn't
work, and OnKeyUp is too late :-(
Luke Pascoe Delphi Programmer
enSynergy Consulting LTD
[EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590
Level 4, 10-12 Federal St, Auckland, New Zealand
PO Box 32521, Devonport, Auckland 1330, New Zealand
== I.H.T.F.P. ==
--
-
New Zealand Delphi Users group - Delphi List -
[EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
--
-
New Zealand Delphi Users group - Delphi List -
[EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
[DUG]: Whats wrong here?
I have a property declared like so: property AutoTab: Boolean read FAutoTab write FAutoTab default True; But when I whack the component on a form, Autotab is false. According to the help text this should work, am I missing something? Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
[DUG]: Mouse Capture
I'm attempting to design a window that will behave like a drop down list of a combo - If you click outside it it fires an event which (usually) will close or hide itself. I've managed to fudge it by using the OnDeactivate of the form, but this only works when clicking on another form in the application, and it effects whatever was clicked on. What I want is to Capture any mouse click on the screen while the form is visible and deal with it myself, So that if joe bloggs accidentally clicks the Destroy my machine button while trying to cancel out of my drop down, the drop down closes and the Button doesn't recieve the click. Possible? Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: WinExec
== Demo code ==
type
TForm1 = class(TForm)
private
Identifier: Integer;
WndHandle: hWnd;
Watching: Boolean;
function WinExecAndGetHWnd(const fn: String): Boolean;
procedure WaitUntilGone;
end;
implementation
{$R *.DFM}
var
TPI: TProcessInformation;
function EnumFunc(H: hWnd; TF: Tsplash_screen): Boolean; StdCall;
var
TheID : LongInt;
begin
With TF do begin
GetWindowThreadProcessId(H, @TheID);
if TheID = Identifier then begin
WndHandle := H;
Result := False;
end
else
Result := True;
end;
end;
function TSplash_screen.WinExecAndGetHWnd(const fn: String): Boolean;
var
TSI: TStartupInfo;
begin
WndHandle := 0;
FillChar(TSI, SizeOf(TSI), 0);
TSI.cb := SizeOf(TSI);
if CreateProcess(nil, PChar(fn), nil, nil, False,
NORMAL_PRIORITY_CLASS,
//CREATE_NEW_PROCESS_GROUP or
//DETACHED_PROCESS or
nil, nil, TSI, TPI) then begin
Identifier := TPI.dwProcessId;
CloseHandle(TPI.hThread);
WaitForInputIdle(TPI.hProcess, 1);
EnumWindows(@EnumFunc, LongInt(Self));
if (WndHandle = 0) and (GetPlatform = tpWinNT) then
showmessage('Windows NT cannot open the requested application.');
end;
Result := WndHandle 0;
end;
procedure TSplash_screen.WaitUntilGone;
var
ECP: Integer;
begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(TPI.hProcess, ECP);
until (ECP STILL_ACTIVE) or Application.Terminated;
CloseHandle(TPI.hProcess);
end;
procedure RunApp;
begin
if Watching then
Exit;
if WinExecAndGetHWnd('AppName.exe') then
begin
Watching := True;
WaitUntilGone;
Watching := False;
end;
end
== End Code ==
Sorry about the lack of comments, but it should but at least a little
obvious what's going on.
Luke Pascoe Delphi Programmer
enSynergy Consulting LTD
[EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590
Level 4, 10-12 Federal St, Auckland, New Zealand
PO Box 32521, Devonport, Auckland 1330, New Zealand
== I.H.T.F.P. ==
-Original Message-
From: Graham Mayes [mailto:[EMAIL PROTECTED]]
Sent: Thursday, 17 May 2001 4:11 p.m.
To: Multiple recipients of list delphi
Subject: [DUG]: WinExec
I have a programme which runs others using WinExec
(CreateProcess seems a
little complicated for my small understanding).
Upon returning from the called programme (eg Word), I want my
programme to
perform an action immediately and automatically, but . . it
appears the
window of my programme is not active until clicked and
therefore I cannot
think of an event (like 'On Activate') upon which to 'hang'
the code for the
action I want performed. Is there a solution?
Again 'yes' will not be overly helpful. :)
Regards
Graham.
--
-
New Zealand Delphi Users group - Delphi List -
[EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
RE: [DUG]: basic question?
You can either iterate through the controls on the form using MyForm.Controls and checking thier type or you can define a private TList and push all your buttons into the list on create (or in the constructor) and iterate through the TList. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Graham Mayes [mailto:[EMAIL PROTECTED]] Sent: Friday, 11 May 2001 10:42 a.m. To: Multiple recipients of list delphi Subject: [DUG]: basic question? I feel I must have missed something very elementary here:- A form has (say) 20 buttons named Button1, Button2 etc.. If you want to do something with each button, at the moment I write Button1.enabled:=true; Button2.enabled:=true; Button3.enabled:=true; . . etc How can I refer to each button in a loop? eg for button_number:=1 to 20... TAI Graham -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
[DUG]: Form inheritance
I have an ancestor form which is inherited from TForm. I have a decendant form which inherits from the ancestor form. Every method I try to override in the decendant (such as Create or Show) gives me the error Cannot override a static method. If I use Reintroduce it works for Create, but not for Show. The unit compiles but the Show procedure doesn't get compiled with it. Has anyone come accross this before? Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi
RE: [DUG]: Dialup Networking
Here's a library I built from another freeware library by François Piette, Bits I never used are commented out so you will probably have to edit it a little. MSDN will give you all the info you need to use the functions. Have fun :-) Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Sandeep [mailto:[EMAIL PROTECTED]] Sent: Thursday, 3 May 2001 10:02 a.m. To: Multiple recipients of list delphi Subject: [DUG]: Dialup Networking How do I get all the connection details in Dialup Networking, so that I can display them in my Application. Sandeep Software Developer CFL [EMAIL PROTECTED] http://www.cfl.co.nz -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Lukes_Ras.pas
[DUG]: Dynamic arrays
Simple one for ya: Delete(MyDynArray, MyIndex, 1); That doesn't work. "Incompatible types" where MyDynArray is. How do I remove an element from the middle of a dynamic array? Luke Pascoe. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
RE: [DUG]: Dynamic arrays
It definately has to be a dynamic array. In many other respects a dynamic array is treated the same way as a string (eg. SetLength, Copy...) but not Delete :-( Luke Pascoe. -Original Message- From: Nahum Wild [mailto:[EMAIL PROTECTED]] Sent: Friday, 6 April 2001 11:29 a.m. To: Multiple recipients of list delphi Subject: RE: [DUG]: Dynamic arrays The delete method is used to manipulate strings, so its complaining about you passing something other than a string as the first paramater. Depending on what type your array is you could always use a TList or even a TStringList?? TStringLists are all good! Cheers, Nahum. -Original Message- From: Luke Pascoe [mailto:[EMAIL PROTECTED]] Sent: Friday, April 06, 2001 11:31 AM To: Multiple recipients of list delphi Subject: [DUG]: Dynamic arrays Simple one for ya: Delete(MyDynArray, MyIndex, 1); That doesn't work. "Incompatible types" where MyDynArray is. How do I remove an element from the middle of a dynamic array? Luke Pascoe. -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
[DUG]: Please forgive me but...
...This Is A Test :-) A previous post didn't go through and my colleague hasn't been recieving list mail. Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
[DUG]: Easy one for you
When I use this line: StringGrid.Rows.Move(OldRow, NewRow); I get this error: '[' expected but '.' found That's the '.' between Rows and Move. It looks valid to me?! (D5 BTW) Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
RE: [DUG]: Re-virus warnings
There is an option in view-layout to turn the preview pane off. This simple measure will increase your security by about 10,000% Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Alex Kouznetsov [mailto:[EMAIL PROTECTED]] Sent: Wednesday, 14 March 2001 11:19 a.m. To: Multiple recipients of list delphi Subject: [DUG]: Re-virus warnings Since the virus topic was touched I'd like to ask a question here. Forgive me if is too stupid. People are adviced "to not open" messages to avoid getting infected by a virus. Like many of them I use MS Outlook express. What does it actually mean "OPEN A MESSAGE" in case of MS Outlook ? Once message is highlighted in the messages list, outlook shows it content in a right hand bottom panel. Whatever is there (eg.animation) immediately start actioning. I suppose some ActiveX based virus could do too ? I do not even know how to "delete the message immediatelly without opening it" - another advice around. To delete the message I have to select it, once selected it gets shown. In MS Outlook express I do not see the difference between specifically opening the message (ie. double clicking it to bring up a separate window) or simple highlighting it in the list. Can somebody pour some light on all this please. Once again sorry for taking space here if I am the only one who is illiterate in this field. Alex -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
RE: HOAX [DUG]: HOAX Major HOAX Virus HOAX Warning HOAX
Sit down, calm down, Pop a pill, relax. People get caught out by this kind of thing, it's not a matter of intelligence, it's a matter of experience. Best thing to do is calmly point out that they've been done (I liked the first reply email, "you've been hoaxed". Short, to the point, unoffensive) and forgeddaboutit. ==== Luke Pascoe Delphi Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand == I.H.T.F.P. == -Original Message- From: Patrick Dunford [mailto:[EMAIL PROTECTED]] Sent: Wednesday, 14 March 2001 10:23 a.m. To: Multiple recipients of list delphi Subject: RE: HOAX [DUG]: HOAX Major HOAX Virus HOAX Warning HOAX Do you call yourself an IT professional, and: 1. Profess to be completely unaware of virus hoaxes; 2. Profess to have never seen a virus hoax before; 3. Profess to be incapable of checking with any antivirus product supplier before propagating hoax virus messageson mailing lists. I have enough trouble with "amateurs" putting these messages about but it is worse to see IT people jumping on the bandwagon. You can always tell these hoaxes because they claim to be identified by Microsoft, IBM or some other prominent source and make other false claims (I bet there are no such reports on CNN) http://www.symantec.com/avcenter/venc/data/virtual.card.for.you.html Virtual Card for You Reported on: January 10, 2001 Last Updated on: February 13, 2001 at 12:44:05 PM PST Printer-friendly version The Virtual Card for You is a hoax that should be ignored. The following is the text that may be received as an email message: Virus Alert VIRUS WARNING To ALL INTERNET USERS: A new virus has just been discovered that has been classified by Microsoft (www.microsoft.com) and by McAfee (www.mcafee.com) as the most destructive ever! This virus was discovered yesterday afternoon by McAfee and no vaccine has yet been developed. This virus simply destroys Sector Zero from the hard disk, where vital information for its functioning are stored. This virus acts in the following manner: It sends itself automatically to all contacts on your list with the title "A Virtual Card for You". As soon as the supposed virtual card is opened, the computer freezes so that the user has to reboot. When the ctrl+alt+del keys or the reset button are pressed, the virus destroys Sector Zero, thus permanently destroying the hard disk. Please distribute this message to the greatest number of people possible. Yesterday in just a few hours this virus caused panic in New York, according to news broadcast by CNN www.cnn.com). This alert was received by an employee of Microsoft itself. Category: Hoax Please ignore any messages regarding this hoax and do not pass on messages. Passing on messages about the hoax only serves to further propagate it. http://vil.nai.com/vil/virusChar.asp?virus_k=98893 AVERT HOAX Notice!! NAI Labs AVERT would like to inform you of a new email HOAX. This email message is just a HOAX, currently we know of no other message that the user will receive about the HOAX as the initial email states. AVERT has not received any report of a user's hard drive being erased for opening the email. We are advising users who receive the email to delete it and DO NOT pass it on as this is how an email HOAX propagates. Below is the actual text from the message that may be received via email. Recently a new virus was discovered that was classified by MICROSOFT www.microsoft.com and by MCAFEE www.mcafee.com to be the most damaging of all time! This virus was discovered late yesterday by MCAFEE and still there is no development of a vaccine! This virus simply writes zeros on the hard drive, where the vital information for the operation of the PC is kept. The virus activates in the following manner: 1. By email it is received with the title 'A VIRTUAL CARD FOR YOU', when opening the message, it sends itself to all in the address list soon... 2. It hangs the machine, forcing the user to reboot the system. 3. AT the moment in which the keys ctrl+alt+del or the RESET button is pressed, it writes zeros to the hard drive making it unusable forever. By the previous information, please, take precaution with the use of electronic mail and, of course, if you receive an email which you do not know the origin of, simply delete it without opening. Please, send this message to the most people possible In a few hours yesterday, this virus caused panic in New York, according to CNN www.cnn.com. -Original Message- Fr
[DUG]: Printing via MS Word
I'm trying to control a MS Word document via OLE. It already loads the document and prints it, but does so with the default printer values. I know that the printer options can be set, I even know where to set them, but I don't know _what_ to set[1]. MSDNs documentation has nothing except a description of what the method does, nothing about its parameters. Anyone know where I can get that info? Also, once I figure out how to tell Word what I want, I face another problem. How to get the info gathered by my TPrinterSetupDialog. The Execute method returns only True or False, and there are no properties or methods to retrieve the information I need[2]. Thanks. Luke Pascoe Junior Programmer enSynergy Consulting LTD [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590 Level 4, 10-12 Federal St, Auckland, New Zealand PO Box 32521, Devonport, Auckland 1330, New Zealand [1] Example of Word print command: FPrintProgram.Application.ActiveDocument.PrintOut(Copies := NrCopies, Collate := True); "Copies" and "Collate" are printer setup options, What other options are there? [2] Paper orientation (Portrait/Landscape) Paper tray to use Etc. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
[DUG]: Changing my DUG email adress
Err, I can't remember the URL of the DUG website, I need to change my email addy from [EMAIL PROTECTED] to [EMAIL PROTECTED] TIA. -- Luke Pascoe Ex-Programming Ex-Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 Give a man a fish and you feed him for a day. Teach him to use the Net and he won't bother you for weeks. -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
[DUG]: Minimising modal forms.
I have a form which is created and shown (modally) by a parent. When this form is minimised I want it to act as though the main form had been minimised but it doesn't. How do I fix this? I thought of running Application.Minimise when the form is min'ed but there's no OnMinimise event :-( -- Luke Pascoe Ex-Programming Ex-Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 Give a man a fish and you feed him for a day. Teach him to use the Net and he won't bother you for weeks. -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
[DUG]: CD Rom problems
Ive got an app that runs off a CD but sometimes requires the Windows installation CD. When the user swaps CD's the program does it's thing and reads from the windows CD, but when it's done with the windows CD it pops up a blue screen saying "wrong disk in drive". How do I turn this into a nice "please re-insert CD" dialog? Thanks. -- Luke Pascoe Ex-Programming Ex-Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 Give a man a fish and you feed him for a day. Teach him to use the Net and he won't bother you for weeks. -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
[DUG]: Positions available?
If anyone knows of a position for a slightly used Delphi programmer, with skills in SQL, internet applications, CGI, customer interfaces, PERL, HTML and Troubleshooting, please let me know. CV available on request. -- Luke Pascoe ex-Programming ex-Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 Give a man a fish and you feed him for a day. Teach him to use the Net and he won't bother you for weeks. -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
[DUG]: Bitmap transparency
An easy one for a friday afternoon... I've got 4 little bitmaps, each with a transparent reqion defined by the color pink. I also have a string grid which I draw manually. I want to copy these little bitmaps to certian cells at will, which is easy with copyrect _except_ that I don't know how to make the transparent bits transparent. Any guru's out there still functioning mentally or has everyone (including myself) shut down for the weekend already? -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 Give a man a fish and you feed him for a day. Teach him to use the Net and he won't bother you for weeks. -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
Re: [DUG]: Bitmap transparency
I am, and that works for the TBitmap itself, but when I copyrect the TBitmap.canvas to the TStringGrid.Cell.Rect it looses that transparency and shows up pink (which is really ugly BTW) - Original Message - From: "Chrissy R" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Friday, December 01, 2000 3:35 PM Subject: Re: [DUG]: Bitmap transparency There is a transparent property for bitmaps - you could always use that. Chrissy. - Original Message - From: Luke Pascoe [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Sent: Friday, December 01, 2000 3:30 PM Subject: [DUG]: Bitmap transparency An easy one for a friday afternoon... I've got 4 little bitmaps, each with a transparent reqion defined by the color pink. I also have a string grid which I draw manually. I want to copy these little bitmaps to certian cells at will, which is easy with copyrect _except_ that I don't know how to make the transparent bits transparent. Any guru's out there still functioning mentally or has everyone (including myself) shut down for the weekend already? -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 Give a man a fish and you feed him for a day. Teach him to use the Net and he won't bother you for weeks. -- -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
Re: [DUG]: Is Everyone dead or something ?
Here here!! - Original Message - From: "Matthew Comb" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Tuesday, November 21, 2000 4:46 PM Subject: Re: [DUG]: Is Everyone dead or something ? Hands up the programmers who are just twiddling their thumbs waiting for 5:00 to roll around? Matt. - Original Message - From: "James Sugrue" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Tuesday, November 21, 2000 2:29 PM Subject: RE: [DUG]: Is Everyone dead or something ? Was it ever alive ? ;-) -Original Message- From: Matthew Comb [mailto:[EMAIL PROTECTED]] Sent: Tuesday, 21 November 2000 16:35 To: Multiple recipients of list delphi Subject: Re: [DUG]: Is Everyone dead or something ? Or Java is dead... that should get Nic interested at least... Matt. - Original Message - From: [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Wednesday, November 22, 2000 3:15 AM Subject: [DUG]: Is Everyone dead or something ? Very few messages today ! someone should start a thread that is contriversial something like.Microsoft is the best company in the worldJUST an example. hehehehe Cheers, Jeremy Coulter -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee(s) named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify Progressive Enterprises Ltd. immediately via email at [EMAIL PROTECTED] Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of Progressive Enterprises Ltd. This footnote also confirms that Progressive Enterprises Ltd. has swept this email message for the presence of computer viruses. This does not guarantee this message is virus free. -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
Re: [DUG]: [Q] Convert a given string to a magic number....
I have a routine which returns a text md5sum given a stream. This can be easily hacked to return in binary instead. - Original Message - From: "Donovan J. Edye" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Wednesday, October 18, 2000 4:33 PM Subject: RE: [DUG]: [Q] Convert a given string to a magic number N, as the input is unlimited and the output restricted)... Hence my idea to MD5 it as that gives you a fixed result string from an any length input string. language 'Neven wrote an email..' It could be any string. So as per your example or 'My dog spot', '123 runs', '132', 'Yet another string' --Donovan [[EMAIL PROTECTED]] Donovan J. Edye [www.edye.wattle.id.au] Namadgi Systems, Delphi Developer [www.namsys.com.au] Voice: +61 2 6285-3460 Fax: +61 2 6285-3459 TVisualBasic = Class(None); Heard just before the 'Big Bang': "...Uh Oh" GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer replacement. Also includes freeware delphi windows explorer components. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Neven MacEwan Sent: Wednesday, 18 October 2000 14:28 To: Multiple recipients of list delphi Subject: Re: [DUG]: [Q] Convert a given string to a magic number D Correct answer is No..you cannot do it (as the input is unlimited and the output restricted)... however and more clues re the input is it acii a..z or language 'Neven wrote an email..' Neven - Original Message - From: Donovan J. Edye [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Sent: Wednesday, 18 October 2000 16:14 Subject: RE: [DUG]: [Q] Convert a given string to a magic number N, - String can be any length - Result "number" must "fit" into a longword (ie unsigned 32 bit number) --Donovan [[EMAIL PROTECTED]] Donovan J. Edye [www.edye.wattle.id.au] Namadgi Systems, Delphi Developer [www.namsys.com.au] Voice: +61 2 6285-3460 Fax: +61 2 6285-3459 TVisualBasic = Class(None); Heard just before the 'Big Bang': "...Uh Oh" GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer replacement. Also includes freeware delphi windows explorer components. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Neven MacEwan Sent: Wednesday, 18 October 2000 13:48 To: Multiple recipients of list delphi Subject: Re: [DUG]: [Q] Convert a given string to a magic number D, May be a bit obvoius but why hash? Any restrictions on max input length/number size Neven - Original Message - From: Donovan J. Edye [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Sent: Wednesday, 18 October 2000 15:43 Subject: [DUG]: [Q] Convert a given string to a magic number G'Day, Another obscure one. Has anyone got any suggestins on how to turn an arbitrary string into a unique number? Eg 'ab' = 123 'ba' = 456 'abc' = 1234 etc. My first thought was Original String -- Apply MD5 Hash -- StringOfFixed length -- MagicStringToNoEncoding = Desired Result --Donovan [[EMAIL PROTECTED]] Donovan J. Edye [www.edye.wattle.id.au] Namadgi Systems, Delphi Developer [www.namsys.com.au] Voice: +61 2 6285-3460 Fax: +61 2 6285-3459 TVisualBasic = Class(None); Heard just before the 'Big Bang': "...Uh Oh" GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer replacement. Also includes freeware delphi windows explorer components. -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New
Re: [DUG]: [Q] Convert a given string to a magic number....
Question do you have access to the existing keys (to check for collisions)
x := fn('i have a dog')
while exists(x) then x ;= inc(x) mod max_x
Que? Manuel no untendre? BASIL!
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Re: [DUG]: [Q] Convert a given string to a magic number....
Yeah, md5 generates a 128bit value, you can treat that value any way you like, I turned it into a Hex string for human consumption but you can call it a 128bit unsigned integer if you want. - Original Message - From: "Donovan J. Edye" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Wednesday, October 18, 2000 4:52 PM Subject: RE: [DUG]: [Q] Convert a given string to a magic number L, I need the result to be a number of some kind. A long int, float. or such like. I won't bore you with the why, but that is the requirement.. --Donovan [[EMAIL PROTECTED]] Donovan J. Edye [www.edye.wattle.id.au] Namadgi Systems, Delphi Developer [www.namsys.com.au] Voice: +61 2 6285-3460 Fax: +61 2 6285-3459 TVisualBasic = Class(None); Heard just before the 'Big Bang': "...Uh Oh" GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer replacement. Also includes freeware delphi windows explorer components. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Luke Pascoe Sent: Wednesday, 18 October 2000 14:40 To: Multiple recipients of list delphi Subject: Re: [DUG]: [Q] Convert a given string to a magic number I have a routine which returns a text md5sum given a stream. This can be easily hacked to return in binary instead. - Original Message - From: "Donovan J. Edye" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Wednesday, October 18, 2000 4:33 PM Subject: RE: [DUG]: [Q] Convert a given string to a magic number N, as the input is unlimited and the output restricted)... Hence my idea to MD5 it as that gives you a fixed result string from an any length input string. language 'Neven wrote an email..' It could be any string. So as per your example or 'My dog spot', '123 runs', '132', 'Yet another string' --Donovan [[EMAIL PROTECTED]] Donovan J. Edye [www.edye.wattle.id.au] Namadgi Systems, Delphi Developer [www.namsys.com.au] Voice: +61 2 6285-3460 Fax: +61 2 6285-3459 TVisualBasic = Class(None); Heard just before the 'Big Bang': "...Uh Oh" GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer replacement. Also includes freeware delphi windows explorer components. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Neven MacEwan Sent: Wednesday, 18 October 2000 14:28 To: Multiple recipients of list delphi Subject: Re: [DUG]: [Q] Convert a given string to a magic number D Correct answer is No..you cannot do it (as the input is unlimited and the output restricted)... however and more clues re the input is it acii a..z or language 'Neven wrote an email..' Neven - Original Message - From: Donovan J. Edye [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Sent: Wednesday, 18 October 2000 16:14 Subject: RE: [DUG]: [Q] Convert a given string to a magic number N, - String can be any length - Result "number" must "fit" into a longword (ie unsigned 32 bit number) --Donovan [[EMAIL PROTECTED]] Donovan J. Edye [www.edye.wattle.id.au] Namadgi Systems, Delphi Developer [www.namsys.com.au] Voice: +61 2 6285-3460 Fax: +61 2 6285-3459 TVisualBasic = Class(None); Heard just before the 'Big Bang': "...Uh Oh" GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer replacement. Also includes freeware delphi windows explorer components. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Neven MacEwan Sent: Wednesday, 18 October 2000 13:48 To: Multiple recipients of list delphi Subject: Re: [DUG]: [Q] Convert a given string to a magic number D, May be a bit obvoius but why hash? Any restrictions on max input length/number size Neven - Original Message - From: Donovan J. Edye [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Sent: Wednesday, 18 October 2000 15:43 Subject: [DUG]: [Q] Convert a given string to a magic number
Re: [DUG]: Simple Custom Control Programme needed
He's not on the delphi mailing list so you'll need to email him directly. - Original Message - From: "Nello Sestini" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Monday, October 09, 2000 1:07 PM Subject: Re: [DUG]: Simple Custom Control Programme needed damn! i knew i would do this one day and a whole week looms ahead ... ns -Original Message- From: Nello Sestini [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Date: Monday, October 09, 2000 07:04 Subject: Re: [DUG]: Simple Custom Control Programme needed Pete, Have you found someone for this? I hesitated at first to respond because we're outside NZ and you probably intended to find someone close by. But if you haven't found someone and are still looking I'd be interested in bidding on it. We do a lot of work remotely and I think this job could easily be handled off-site. (I wouldn't mind an excuse to visit the Waikato anyway g). How easy would it be to get a look at the command repertoire of the switch, protocol details etc? best regards ns -- Nello Sestini Roserox Company Limited tel/fax: +66 53 429-341 fax USA: +1 530 937-9007 Chiangmaimobile/voicemail: +66 1 881-1521 THAILAND [EMAIL PROTECTED] GMT+7PGP: http://roserox.co.th/pgp/nello.asc -Original Message- From: dove [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Date: Friday, October 06, 2000 09:58 Subject: [DUG]: Simple Custom Control Programme needed Hello... This is a request for a programme which we need written... We are currently setting up a new community TV Station in Rotorua called Rotorua City Television. We are after someone who could write a small application programme to run a 10 input Audio Video Switch unit. Our application is to be able to switch any "Channel" on, relative to preset times (IE Using a computer internal realtime clock as the timing reference) The AV Switcher has a 232 port and protical info available.. Can anyone help Thanks Cheers Pete Archibald Rotorua City TV 07 3488 984 -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
Re: [DUG]: Simple Custom Control Programme needed
In case anyone was going to flame this guy (not that I think they would) he was pointed in my direction for this, but I'm not interested/too busy to do it, so I told him to email this list. If this was bad, flame me, not him. -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 "The time is gone, the song is over, thought I'd something more to say" Pink Floyd - Time (Dark side of the moon) -- - Original Message - From: "dove" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Friday, October 06, 2000 2:56 PM Subject: [DUG]: Simple Custom Control Programme needed Hello... This is a request for a programme which we need written... We are currently setting up a new community TV Station in Rotorua called Rotorua City Television. We are after someone who could write a small application programme to run a 10 input Audio Video Switch unit. Our application is to be able to switch any "Channel" on, relative to preset times (IE Using a computer internal realtime clock as the timing reference) The AV Switcher has a 232 port and protical info available.. Can anyone help Thanks Cheers Pete Archibald Rotorua City TV 07 3488 984 -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
Re: [DUG]: AD:Family Reunion T Shirts More
Muahahaha, we know. -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 "Dr. Alex Comfort, author of 'The Joy of Sex' has died, after a series of strokes." -- From the Times, 28th March 2000. -- - Original Message - From: "Carl Reynolds" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Tuesday, July 25, 2000 12:37 PM Subject: Re: [DUG]: AD:Family Reunion T Shirts More Oh s***! Didn't mean to send that reply to the list! Aaaarrggghhh!!! Cheers, Carl -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: Re:[DUG]: Aaaarrggghhh
Temp is nil, I can step through it and it does get to the "messagedlg..."
line, but nothing happens. No dialog window, nothing, it just steps right
past it and closes.
--
Luke Pascoe
Programming
Ihug
[EMAIL PROTECTED]
0800 GET IHUG ext.9764
"Dr. Alex Comfort, author of 'The Joy of Sex' has died, after a
series of strokes." -- From the Times, 28th March 2000.
--
- Original Message -
From: [EMAIL PROTECTED]
To: "Multiple recipients of list delphi" [EMAIL PROTECTED]
Sent: Monday, July 24, 2000 3:24 PM
Subject: Re:[DUG]: Aaaarrggghhh
I take it that you are Returning "Nil" from
General_bits.ReadConfFile('ljch');
if it fails to find/read the file
And I also assume you are destroying ("Free") the TStringList Temp before
setting it to "nil"...
HTH
Regards
Paul
Reply Separator
Subject: [DUG]: Aaaarrggghhh
Author: [EMAIL PROTECTED]
Date: 24/07/2000 15:06
I must be missing something really simple here.
This is designed to test the ReadConfFile proc I've written - it
should
bring up a message dialog with the error "file not found" in it, but
nothing
comes up and the form closes as it normally would.
procedure Tmenu.FormDestroy(Sender: TObject);
var
Temp: TStringList;
begin
Temp := TStringList.Create;
Temp := General_bits.ReadConfFile('ljch');
if Temp = Nil then
begin
MessageDlg(General_bits.Last_Error, mtError, [mbok], 0);
end
else begin
Temp.SaveToFile('c:\windows\desktop\blah.txt');
end;
end;
--
Luke Pascoe
Programming
"Dr. Alex Comfort, author of 'The Joy of Sex' has died, after a
series of strokes." -- From the Times, 28th March 2000.
--
-
--
New Zealand Delphi Users group - Delphi List -
[EMAIL PROTECTED]
Website: http://www.delphi.org.nz
--
-
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
[DUG]: Stealth
I need to run an app without ANY visible clue that it is being run. ie: No task bar Icon No Ctrl-Alt-Del menu Item Also, how do I make the main form invisible? I've tried running Hide in the OnCreate event but the form appears then dissappears. I don't want to see it at all. This is a to test a theory and won't be used for anything dodgy. -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 "Dr. Alex Comfort, author of 'The Joy of Sex' has died, after a series of strokes." -- From the Times, 28th March 2000. -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
[DUG]: Memory leak
I've written a program which goes through a list of filenames, loads those files into a TFileStream one by one and generates a checksum for each. Each file stream is Free'd when the checksum is finished and yet, when I watch allocated memory using windows system monitor, it drops a little bit with each new file and never recovers that memory, even when the program is closed. What could be going wrong? -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 "Dr. Alex Comfort, author of 'The Joy of Sex' has died, after a series of strokes." -- From the Times, 28th March 2000. -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: Web server apps with Linux
4) write it all in C/C++ (ouch), or Perl (ouch-er) Hey! PERL rocks! I have wet dreams about Regular Expressions for Delphi - it would make my life sooo much easier :) -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 "Dr. Alex Comfort, author of 'The Joy of Sex' has died, after a series of strokes." -- From the Times, 28th March 2000. -- - Original Message - From: "Nic Wise" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Tuesday, May 02, 2000 11:40 AM Subject: RE: [DUG]: Web server apps with Linux You have to be joking :) Basically, 99% of MS code will not work on Linux without Wine, which is not 'production' stable AFAIK. ActiveX is very entrenched in Windows - there are a few DCOM products for Unix, but most of them are DCOM-CORBA bridges. If you want your code to run under Linux, especially apache, try the following: 1) Get Chilli!ASP fi you are using ASP. 2) Use Java and JSP (you can run it on "any" platform then) 3) Wait for Kylix. 4) write it all in C/C++ (ouch), or Perl (ouch-er) Until Kylix comes out, WebModules and MIDAS will not work - ISAPI's will never work under Linux 'cos there is no IIS (you write apache DSO's instead, which the marketing in the US seam to be sure that Kylix will support) N -- Nic Wise - 021.676.418 / [EMAIL PROTECTED] / Inprise/Borland New Zealand Is it not a foolish man, said little Woo, who keeps all his chickens in his trousers? For at best, will he not suffocate his chickens, and, and worst, will he not disappoint the ladies in the village? --Alexi Sayle -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Paul Lowman Sent: Tuesday, 2 May 2000 11:34 To: Multiple recipients of list delphi Subject: Re: [DUG]: Web server apps with Linux How about ActiveX ? Paul Lowman -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
[DUG]: TStringGrid
Does anyone know how to tell whether a scrollbar is visible on a TStringGrid? I want to resize the columns to take the scrollbar into account but I don't know how to tell whether it's currently being displayed or not. TIA. -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 "Get 'em by the balls and their hearts and minds will follow." -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: TStringGrid
Perfect, Thanks! -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 "Get 'em by the balls and their hearts and minds will follow." -- - Original Message - From: "Max Nilson" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Thursday, April 20, 2000 11:28 AM Subject: RE: [DUG]: TStringGrid Luke Pascoe asked: Does anyone know how to tell whether a scrollbar is visible on a TStringGrid? The technique that I have found to work is something like: HasVScrollBar := GetWindowLong(MyStringGrid.Handle, GWL_STYLE) and WS_VSCROLL 0; Cheers, Max. -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
[DUG]: function which returns an object
How do I write a library function which returns a TStringList object? To be used like: function MyFunction(a, b, c: String): TStringlist; begin ... ... StringList.AddStrings(MyFunction(a, b, c)); ... -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 "Get 'em by the balls and their hearts and minds will follow." -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: Just a general question
I do extensive work with DUN and haven't noticed any "slowing down" Are you using RasApi32.dll? - Original Message - From: Alistair George [EMAIL PROTECTED] To: Multiple recipients of list delphi [EMAIL PROTECTED] Sent: Thursday, March 30, 2000 8:13 AM Subject: [DUG]: Just a general question Does anyone know why when PC does DUN that it always seems to grab hold of heaps of resources? I suspect the MS DUN is 16 bit and that stuffs the system up. As far as serial coms go, interrupt driven coms with microprocessors takes only a small amount of the processing time, so I'm kinda interested in why my CD slows down haha. Al+ -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
[DUG]: Whats wrong here?
TTaskList = class(TList); procedure SaveToFile(FileName: String); end; I want to add the SaveToFile proc to the functionality of TList, but I get an error saying "IMPLEMENTATION expected but ; found" I haven't had much experience with inheriting components. -- Luke Pascoe --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
[DUG]: Netscape
I realise this is completely the wrong list to ask, but I can't find the info on Netscapes site. Does anyone know how to programatically alter Netscapes preferences (Proxies specifically)? Please reply off-list so as not to fill peoples mailbox with non-delphi mail. -- Luke Pascoe Programming Ihug [EMAIL PROTECTED] 0800 GET IHUG ext.9764 -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: Dial Up Networking Via Modem
Is the internet involved? Or do you want direct dial? Luke Pascoe Programming Ihug - Original Message - From: "abdul.muhyi" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Thursday, March 16, 2000 3:00 AM Subject: [DUG]: Dial Up Networking Via Modem I'd like to make a program that can transfer file from remote computer to my local computer. The conection must be via modem. Is any body could help me ? -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: D5 crashing ?
Does this happen to D3 as well? I have loads of problems with Delphi giving access violations and other unwelcome stuff when starting/exiting (and I'm talking Delphi itself, not created applications) Luke Pascoe Programming Ihug - Original Message - From: "Kerry Sainsbury" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Monday, March 13, 2000 11:30 AM Subject: Re: [DUG]: D5 crashing ? Hi Simon, Has anyone had this happen to them ? There is a file called 'Delphi32.dsk' in the 'Delphi5/bin' directory that gets corrupted sometimes when your machine crashes. Just delete it, and start Delphi again. Cheers, Kerry Sainsbury Inprise/Borland New Zealand Notes v 5 crashes whilst D5 is open. On rebooting my machine (running NT 4 BTW) and opening D5, all that comes up is the default form and source window , no main menu at all. Everything seems to work fine apart from the fact that I can't do anything as I can't access the main menu. I figured that there maybe a registry problem so I borrowed a colleagues Delphi 5 registry settings and imported them into mine. On rebooting I still get the same result. It appears as if Notes crashing has corrupted some D5 files. My only option appears to be reinstalling D5. Does anyone have any suggestions or has anyone else seen this behaviour before ? Simon -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
[DUG]: Timing less than 1ms
I'm timing some disk access, and I need a division of time less than 1 millisecond (GetTickCount) Is there any way to do this? Luke Pascoe Programming Ihug --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: Getting a list of subdirectories
Thanks, I didn't understand what you meant by "beware of '.' and '..'" untill I got hit by a stack overflow :-) Luke Pascoe Programming Ihug - Original Message - From: "Stacey Verner" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Friday, March 03, 2000 10:03 AM Subject: RE: [DUG]: Getting a list of subdirectories Take a look at FindFirst and FindNext, but beware of '.' and '..' Stacey -Original Message- From: Luke Pascoe [mailto:[EMAIL PROTECTED]] Sent: Friday, 3 March 2000 10:02 To: Multiple recipients of list delphi Subject: [DUG]: Getting a list of subdirectories Is there any way to get a list of subdirectories without using TDirectoryListBox in Delphi 3? Likewise, can I get a list of files in a directory without using TFileListBox? Thanks. Luke Pascoe -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: Getting a list of subdirectories
Thanks. she's all go now. Luke Pascoe Programming Ihug - Original Message - From: "Donovan J. Edye" [EMAIL PROTECTED] To: "Multiple recipients of list delphi" [EMAIL PROTECTED] Sent: Friday, March 03, 2000 10:06 AM Subject: RE: [DUG]: Getting a list of subdirectories L, Have a look at the file function FindFirst. --Donovan Donovan J. Edye [www.edye.wattle.id.au] Namadgi Systems, Delphi Developer Web: www.namsys.com.au E-Mail: [EMAIL PROTECTED] Voice: +61 2 6285-3460 Fax: +61 2 6285-3459 TVisualBasic = Class(None); -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Luke Pascoe Sent: Friday, 3 March 2000 08:02 To: Multiple recipients of list delphi Subject: [DUG]: Getting a list of subdirectories Is there any way to get a list of subdirectories without using TDirectoryListBox in Delphi 3? Likewise, can I get a list of files in a directory without using TFileListBox? Thanks. Luke Pascoe -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
