Pascal and Delphi Coding Most Active Threads

When I press a button on my latest amazing application nothing happens (that's not surpising in itself) except that a message flashes across the screen at triple the speed of light , , I would like to know what it is trying to tell me as that may have a bearing why the button does nothing in the first place. Any ideas? , , I suppose it could of course be Angel's mugshot.. , rt

Posted to MB Topic: Delphi News / Other

For those who haven't been keeping up, some time back Borland "spun off" a separate company named "CodeGear" for its developer tools, also announcing at the time that CodeGear was up for sale. Well, now there's a buyer! CodeGear is being acquired by Embarcadero Technologies, a database tools company. Key people from both companies are excited about this development. While there are no overlapping products, there is a lot of potential for sharing technology between products, and for "bundling" p...

Posted to MB Topic: Delphi News / Other

Which takes precedence - the section in the project file where it gives a list of forms to be automatically created at startup or my choice of form creation via the project option selection bit? , , The majority of examples in the online help use "Free" in some context when closing forms, yet hidden away in the depths of the very same online help it also says to use "Release" in preference to "Free" when closing forms as it allows for all actions to finsh before closing. I doubt if I will ever find that particular bit again, but does some clever type know the reasoning\answer?

Posted to MB Topic: Delphi Object PASCAL

Hot News: Borland is Killing the BDE!!!, , , , , I bet that got your attention! Although Borland has marked the end of the Borland Database Engine (BDE), they will continue development for another year or two. The current expectation is that the BDE will be a useful solution for another 2 to 3 years. Although two to three years is a lifetime in this industry, you will want to start migrating away from the BDE as soon as possible. How much development time Borland will devote to the BDE in the next year or two is a touchy subject for both Borland and current users of the BDE. Based on the discussion going on at BorCon 2001, it looks like future work on the BDE will be focused primarily on bug fixes with very few new features being added., , , Borland has made it clear that they want you to use their new dbExpress solutio...

Am using CodeGear 2007 Win32 with dBase, ACE Reporter, Woll2Woll, JEDI components; therefore I have a lot of TTables and TQueries throughout my program. My applciation runs on a 2003 server with XP workstations. The response time to access data (retrieve, post, do SQLs) is horrible. The users are demanding something better. But I don't know what is better. And I don't know what the ramfications are in changing to something better. I sincerely hope that someone can give me recommendations as well as address the difficulty in changing to another database. Thank you so much, Charlie

Posted to MB Topic: Delphi Distributed Apps

I was asked by someone if I could put together a little program which at the press of a button would shut down Windows (and not just go to a DOS window) and then run a true DOS program and then close the system down - although I doubt this last bit., , Naturally I waved the white flag at this, but hoped that someone here may have an inkling of what to do. , , I understand that the DOS program is something to obliterate the windows swop file, so it did'nt take a great deal of brain power to guess that the said computer may have been visiting the likes of naughty Nora's enormous knocker sites , , Well, each to his own I suppose, but out of interest could this be done in Delphi? , rt

Posted to MB Topic: Delphi News / Other

I wrote a program by D6 personal. Initially for fun, but now it turns out I may sell it for some money. Does anyone know how much money I need to pay borland if I want sell a program written by D6 per? I'm a student, $1000 pro version is too much for me. I hope I will not need to re-write it by c++. Borland's tools are excellent, but the price is a little high.

Posted to MB Topic: Delphi News / Other

How to hide an application from the list with the start-menu-button on it (no, im not english)?

Posted to MB Topic: Delphi Object PASCAL

Hoo-hah! Read all about it!, , http://bdn.borland.com/article/0,1410,29951,00.html , , http://bdn.borland.com/article/0,1410,29952,00.html

Posted to MB Topic: Delphi News / Other

Hello and happy new year to all. I am currently in the process of writing a Point-of-Sale, POS, system. I have seen many in person recently and they have fairly simple screens with a few options usually per screen and perhaps some tabs. Color is usually present but not usually overdone. My question, I noticed they all have a gradient type of button in several formats and how do you th ink I should best approach my project to achieve a nice graident button and controls. Here is what I have looked at thus far. 1) Skinning. If I find nothing else, this is the area I will probably land. When I am finished with my research, I will post my findings. Through skinning, I can apply a theme to the Delphi application and at least get a completely different feel than the basic application colors with very little coding. 2) HMI (Human Machine Interface) I do not know much about this, yet, but this seems to be an option. 3) Just DIY, or do-it-yourself - create nice gradient designs in a paint...

Posted to MB Topic: Delphi VCL

Is it possible when using a standard MaskEdit box to get the system date to appear as a default, or is there some other cunning method to do a similar thing?, rt

Posted to MB Topic: Delphi Object PASCAL

Now I will readily admit that I aren't the brightest candle in the shop window when it comes to SQL, so I need help (Im looking at you Mr Wehrly!)., , My report splits into four groups, each group containing a list of items for that group and their current value. I list my data using QRDBEdits and it works fine. However, I would like to exclude any items where the figure is "0.00". I figure to do this I need a QRExpr instead of the QRDBEdit but I dont know how to make it work properly with the SQL code. In delphi, I would write something like this., , if Currency((Query2.Debit - Query2.Credit)) <> 0 then , , but how to do it in Sql???, , Answer this for me and Ill get around to sending Mike my picture for the avatars. Im growing my beard as we speak!

Posted to MB Topic: Delphi Object PASCAL

when i use NMHTTP1.Post('http://10.0.65.188/hello.php','a=hello'),the socket reply that the connection is successful,but the parameter hasn't been transfered., , who know why and how to deal with it?, thax.

Posted to MB Topic: Delphi VCL

Hi...., I got interested in Delphi by downloading the trail version 5 from the net, and decided to purchase the Delphi 6 Personal edition. I have a couple small projects i've been working on that I would like to save., , My Questions are..., Can i install Delphi 6 over the trial version 5? Should i use add/remove programs to uninstall it?, What files do i have to backup or save to keep the projects i've been working on?, , Thanks for any remarks or opinions in advance... :)

Posted to MB Topic: Delphi News / Other

hi, , my Delphi's main menu disapeared. I can only see the source and forms windows., , What to do?, , Thanks, , Gr

Posted to MB Topic: Delphi News / Other

Hello everyone!  I am new to Delphi and I am picking it up really quickly by the way.  My problem is I haven't seen a working Mysql database that worked from examples I have downloaded.  I have gotten a few Access database running with Delphi.  What I can't seem to do however is get a certain recordset.  I can't find no information on pulling a specific recordset with Access/Delphi.Here is what I am trying to do:  when a person logs on to the chatroom server, I want them to have access  to the information they entered in there personal record only?If there is an easier way to do this besides using Access, can someone point me in the right direction please.  I am using Delphi 7. Thanking you all in advance!!! 

Posted to MB Topic: Delphi Single User Apps

Can anyone give me an explanation as to why the following first assert fails? (i use D7), , var dt1, dt2: TDateTime;, begin, dt1 := Now;, dt2 := IncHour(dt1, 1);, Assert(HoursBetween(dt1, dt2) = 1, '1st assert!');, , dt1 := Now;, dt2 := IncHour(dt1, 2);, Assert(HoursBetween(dt1, dt2) = 2, '2nd assert!');

Posted to MB Topic: Delphi Object PASCAL

Meanwhile, back in the land of simple SQL I get this error message when running a dynamic params type query and cannot seem to find it's meaning -, , "List index out of bounds (0)", , I have a feeling this is an easy one , but..

Posted to MB Topic: Delphi News / Other

[b]Version Info[/b]: All Versions., , [b]Category[/b]: File System, , [b]Description[/b]:, If your program checks either the floppy or CD-ROM drive for a file, the drive makes a lot of racket and generally annoys the user. Plus, Windows then displays an old Win 3.x looking dialog indicating the failure., , TO avoid this, we can set the global Windows error mode to critical which turns off these error displays. It also checks the drive without causing it to make a lot of racket., , Use the following function anytime you want to check a drive to see if it is empty or not. Simply pass in the drive letter as a character., , , [b]function[/b] DiskInDrive(lw: Char): Boolean;, [b]var[/b], áásRec: TSearchRec;, ááres: Integer;, , [b]begin[/b], ááResult:= False;, ááSetErrorMode(SEM_FAILCRITICALERRORS);áá, , [i]{$I-}[/i], ááááres := FindFirst(lw + ':\*.*', faAnyfile, SRec );, ááááFindClose(SRec);áá, [i]{$I+}[/i], Result := Res = 0;, [b]end[/b];, , , , ------...

Posted to MB Topic: Delphi News / Other

Ideally I would like a bit of code that I could activate when say leaving a DBEditBox that would emulate exactly what the post button does on the DB navigator bar without the DB nav bar getting involved at all., , I have tried using 'post' in various guises without success due I suspect to datamodule peakiness! , rt

Posted to MB Topic: Delphi Single User Apps

In my program, when the form first loads, I have a procedure that plays a video file. I want to wait until the file is done playing, then bring up another form. Currently my onActivate procedure looks like this:, , begin, mediaplayer1.play;, ********************************, form1.visible := False;, form2.visible := True;, end;, , The line of (*) is where I think I need to put some kind of a wait command. I have explored the delphi help topics on "mediaplayer.wait", and the "waitfor" command with no luck. , , Any ideas? Thanks in advance!

Posted to MB Topic: Delphi Object PASCAL

I am making a Inductor Calculator that contains 12 Edit boxes and 5 Buttons. 5 for series calculation and an answer box. 5 for Parallel calculations and an answer box. The problem is if I use only say 3 of the 5 inputs I get an error that "" is not a valid floating point value. My code is like this for the series side., , , var, Form1: TForm1;, first: Real;, second: Real;, third: Real;, fourth: Real;, fifth: Real;, seventh: Real;, eighth: Real;, ninth: Real;, tenth: Real;, eleventh: Real;, answer: Real;, , procedure TForm1.CalcsClick(Sender: TObject);, begin, first:=StrtoFloat(Edit1.Text);, second:=StrtoFloat(Edit2.Text);, third:=StrtoFloat(Edit3.Text);, fourth:=StrtoFloat(Edit4.Text);, fifth:=StrtoFloat(Edit5.Text);, Edit6.Text:=FloattoStr(first+second+third+fourth+fifth);, end;, , and this for the parallel side.., procedure TForm1.CalcpClick(Sender: TObject);, begin, seventh:=StrtoFloat(Edit7.Text);, eighth:=StrtoFloat(Edit8.Text);, ninth:...

Posted to MB Topic: Delphi Single User Apps

I'm programming a form that is fed by an SQL component in a datamodule. I programmatically define the statement with "...add()" statements; ie, , , datamodUSARunitCmdr.sqlAARpt.SQL.clear;, datamodUSARunitCmdr.sqlAARpt.SQL.add('SELECT hdr.aarDate,hdr.aarUnitIdent, hdr.aarSubmitDate, ');, ...., datamodUSARunitCmdr.sqlAARpt.open;, datamodUSARunitCmdr.sqlAARpt.enableControls;, , (I know the SQL-statement returns a recordSet, given the proper values for the parameters)., , The problem is that when the program reaches the "....clear" statement, the following exception is thrown:, "Either EOF or BOF is True, or the current record has been deleted. Requested operation requires a current record"., , What would cause this?, How could it be resolved?, If the query returns a recordSet, how could it generate an exception?

Posted to MB Topic: Delphi COM / ActiveX / DCOM

For simplicty say I have a form with 3 DBEdit boxes and a DBnavigator bar. The bit of code shown is at present on the Enter action of a DBEditbox, where it seems to work - although other suggestions (!) for putting it elsewhere are welcome., , Whilst the code operates the underlying table (tLabour) is not updated automatically by moving off the last box as I want - the post button must used on the nav bar to do this., , Is it that the table is in the 'middle' of a datamodule which knackers the whole thing? I cannot seem to find any real info on accessing tables via editboxes for edit through datamodules --- and a quick test shows that a table connected without the datamodule will work. , , So far I have tried addressing it via the dm and directly and also sticking in 'post' etc in places which should work but to no avail. The table is set to autoupdate and all other fields update themselves happily., , procedure TfDetails.DBEdit2Enter(Sender: TObject);, var, H : SmallInt; // Hours, ...

Posted to MB Topic: Delphi Single User Apps

Hi all, , I have an application which runs many threads that all access a DLL. , , At the moment, I load the DLL once in the main app, and pass each thread a pointer to the DLL. However, the app sometimes dies suddenly with no exception messages., , I think this is due to there being only one instance of the DLL. Am I right? Does each thread need to call "LoadLibrary('mydll.dll')" or should the way I'm doing it work fine?, , p.s I use dynamic linking using getProcAddress( dllHandle, pchar(functionNameString) ) if that helps., , Thanks in advance!

Posted to MB Topic: Delphi News / Other