delphi-2009

i want to put the execution of a query with parameters into a thread-safe class in delphi-2009. I navigate in google but i don't found just what I wanted. Thanks I have found that most database API's are only thread safe at the connection level. Firebird may be different, but using InterBase several (8+) years ago, it was not thread safe. Update: I have verified Firebird is only thread safe at the connection level. This means that typically you need to avoid using a single connection from more than one thread at the same time. The execution of a query against a given connection applies. Avoid

Hi I have been using this function in Delphi 2006, but now with D2010 it throws an error. I think it is related to the switch to Unicode. Function TWinUtils.GetTempFile(Const Extension: STRING): STRING; Var Buffer: ARRAY [0 .. MAX_PATH] OF char; Begin Repeat GetTempPath(SizeOf(Buffer) - 1, Buffer); GetTempFileName(Buffer, '~~', 0, Buffer); Result := ChangeFileExt(Buffer, Extension); Until not FileExists(Result); End; What should I do to make it work? EDIT I get an 'access violation' when the ChangeFileExt is called Windows.Pas function GetTempFileName(lpPathName, lpPrefixString: PWideChar;

gif := TgifImage.Create; gif.Width := 100; gif.Height := 100; gif.AnimationSpeed := 500; gif.Animate := true; gif.add(image1.Picture.Bitmap); gif.add(image2.Picture.Bitmap); gif.add(image3.Picture.Bitmap); gif.SaveToFile('gif.gif'); This loops just once and the speed is not 500? How to make it loop and set the speed? Anders Melander, who wrote the original TGIFImage , has the following answer . You need to add a “Netscape Loop” extension block to the first frame of your GIF. The loop block must be the first extension you define for the frame or else it will not work. See the Animate demo for

I've been searching, but cannot find a solution so I figured perhaps I should simply post it. Here's what I'd like to do, in Delphi (2009): At a certain moment in my application, I'd like to show a message to the user. This should be the normal hint window, which automatically disappears after the normal application defined hint pause, with a custom message (and have it automatically sized etc etc). This should be non blocking, like a normal hint, not dependent on the current control or whatever. "Just show the damn message", in the Application hint window and carry on. Any clues? You can use

I've some "rogue" OutputDebugString call in my application which prints out "T", but I can't just locate it. Is it possible somehow to set breakpoint on OutputDebugString -function and see where it is called from? I'm using Delphi 2009. How many calls to OutputDebugString are there in your project? You can use the "Find in Files" dialog to find them all, and if they aren't too many, there shouldn't be a problem. Otherwise, you could - of course - use a search and replace and replace all OutputDebugString( with raise Exception.Create( . You could also write a function procedure

For static code analysis tools, it is necessary to know all effective source paths for a given Delphi project, which are defined on project level and in the global IDE configuration. Is there a Delphi library which can collect this kind of project information? As far as I know, the registry settings for the Delphi IDE can be in different places, to support multiple configurations. But for a given combination of the IDE registry location and a project file, it should be possible to collect the source paths. Edit : Another solution is to use the --depends switch. This will cause dcc32.exe to

I'm looking to detect local connection loss. Is there a mean to do that, as with the events on the Corelabs components ? Thanks EDIT: Sorry, I'm going to try to be more specific: I'm currently designing a prototype using datasnap 2009. So I've got a thin client, a stateless server app and a database server. What I would be able to do is to detect and handle connection loss (internet connectivity) between the client and the server app to handle it appropriately, ie: Display an informative error message to the user or to detect a server shutdown to silently redirect on another app server. In 2

I am trying to use a TLinkLabel on a TPageControl, and I can't find a way to make it use it's parent's background. // Image removed because the website doesn't exist any more // and I can't find it anywhere... Sorry. As you can see, the parent tab sheet's lovely gradient is not preserved behind the link text. I would like the functionality of having multiple links in a flowing block of text (the functionality that TLinkLabel provides) and have the background of the parent showing behind the text. TLinkLabel does not have a ParentBackground property. I have tried creating a derived class that