How to translate (internationalize, localize) application?

GetText should be able to do, search for “extract” at http://dxgettext.po.dk/documentation/how-to If all you need is to translate GUI and maybe resourcestring in sources, and the inline string constants in Pascal sources are not needed for translation, then you can try Delphi built-in method. However forums say that ITE is buggy. But at least that … Read more

Masking floating point exceptions with Set8087CW, SetMXCSR and TWebBrowser

Assuming that you have no need for floating point exceptions to be unmasked in your application code, far and away the simplest thing to do is to mask exceptions at some point in your initialization code. The best way to do this is as so: SetExceptionMask(exAllArithmeticExceptions); This will set the 8087 control word on 32 … Read more

What are major incentives to upgrade to D2009 (Unicode excluded)?

To put things in to perspective, look at the things that were added between Delphi 7 and Delphi 2007. This was a significant high water mark. http://blogs.codegear.com/nickhodges/2007/03/28/33579 http://www.stevetrefethen.com/blog/VCLAndRTLEnhancementsSinceDelphi7D7.aspx Delphi 2009 sets the bar even higher. http://blogs.codegear.com/pawelglowacki/2008/11/03/38527 http://blogs.codegear.com/chrispattinson/2008/09/19/38897 Here are some of my favourites: Generics (naturally) and generic collections in the RTL. Improved build configurations where … Read more

Delphi 7: ADO, need basic coding example

@mawg, i wrote an simple program for you to ilustrate how work with ADO and Delphi. this is an console application, but explains the basics. before you execute this code you must download and install the odbc connector from this location. You can improve and adapt this code to your requirements. program ProjectMysqlADO; {$APPTYPE CONSOLE} … Read more

Http Post with indy

Indy has TIdMultipartFormDataStream for this purpose: procedure TForm1.SendPostData; var Stream: TStringStream; Params: TIdMultipartFormDataStream; begin Stream := TStringStream.Create(”); try Params := TIdMultipartFormDataStream.Create; try Params.AddFile(‘File1’, ‘C:\test.txt’,’application/octet-stream’); try HTTP.Post(‘http://posttestserver.com/post.php’, Params, Stream); except on E: Exception do ShowMessage(‘Error encountered during POST: ‘ + E.Message); end; ShowMessage(Stream.DataString); finally Params.Free; end; finally Stream.Free; end; end;