delphi-2010

As you know, Delphi 2010 has built-in code formatting. However, formatting unfolds all folded code blocks. Any ideas how to fix it? This "feature" is particularly annoying for me and I was really astonished when I couldn't find any mention of this problem. What I've tried: Searching for alternative, e.g., GExperts have code formatter plugin, but it also unfolds code blocks. Tried to write a macro for GExperts: Ctrl+D(format code) -> various code folding/unfolding shortcuts, but couldn't manage to make it respect all folded/unfolded block structures. Write a CnWizards script, but could't find a

I've been successfully using Delphi 2010 to make an http get requests, but for one service that expects a parameter called 'xml' the request fails with a 'HTTP/1.1 400 Bad Request' error. I notice that calling the same service and omitting the 'xml' parameter works. I have tried the following with no success: HttpGet('http://localhost/Service/Messaging.svc/SendReports/PDF?xml=<?xml version="1.0"?><email><message><to>email@internal.com</to><from>from@internal.com</from></message></email>&id=42&profile=A1'); ... function TReportingFrame.HttpGet(const url: string): string; var responseStream :

I am using Delphi along with WinHTTP to do an HTTP request to download some files from the internet, and I can do the request but I don't know how to get the IStream from the OleVariant that is returned from ResponseStream . I have spent a lot of time googling but I can't figure out how to do it. Here is what I have tried: var req: IWinHTTPRequest; instream: IStream; begin req := CoWinHTTPRequest.Create; req.Open('GET', 'http://google.com', false); req.Send(''); if req.Status <> 200 then begin ShowMessage('failure'#10 + req.StatusText); FreeAndNil(req); Application.Terminate; end; instream :=

I had problems with the following code: var FileSize : Int64; ... FileSize := Info.nFileSizeLow or (Info.nFileSizeHigh shl 32); I expected it to work because of the Int64 type of the left side of the assignment. But it does not. The partial calculation containing the shl seems to produce an overflow. So I changed it to: FileSize := Info.nFileSizeLow or (Int64 (Info.nFileSizeHigh) shl 32); which works on my 32 bit operating system, but does not work on Vista 64 bit! Finally, FileSize := Info.nFileSizeHigh; FileSize := FileSize shl 32; FileSize := Info.nFileSizeLow or FileSize; works on both

How do I create a UDF for MySQL using Delphi? Does anyone have any code templates? I want the code template to be integrated in Delphi versions(2007 and upper), so I need these templates to be usable with and without Unicode support. For starters, Google reveals: documentation a forum thread an example You need to create a DLL with a few exported functions, as documented. 来源： https://stackoverflow.com/questions/5894258/creating-a-udf-for-mysql-in-delphi

In a TDbGrid.OnColumnMoved event handler, I adjust some column headings colors. I also use the grid's OnTitleClicked event to pop-up a (sort column) menu. Unfortunately, after the user drags a column and OnColumnMoved is finished, the VCL calls OnTitleClicked . This means my sort-order pop-up appears after column dragging. Is there a way in OnColumnMoved I can clear the mouse event queue so that OnTitleClicked doesn't get called? This thread has this code, but I don't have a Msg in OnTitleClicked . while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE or PM_NOYIELD) do; (If there's