Ciuly's Blog – Reinventing the wheel

I’ve literally spent over 3 hours trying to egt a delphi 5 service debugged. I tried all mentioned stuff with process attaching, registry stuff, etc, nothing worked. then I bumped into this post from wilson:
http://groups.google.com/group/borland.public.delphi.nativeapi.win32/browse_thread/thread/c2928189fd093193/686224ed4bc7f9a8?hl=en&lnk=st&q=delphi+debug+service+Image+File+Execution+Options#686224ed4bc7f9a8

that didn’t work out of the box eitehr because I’ve got an access violation on the line

while not Terminated do
  ServiceThread.ProcessRequests(True);// wait for termination

but I replaced that block of code with

if FindCmdLineSwitch('debug', ['/','-'], true) then
  while not Terminated do
    forms.Application.ProcessMessages 
else
  while not Terminated do
    ServiceThread.ProcessRequests(True);// wait for termination

and I can now debug my service just fine.

Bookmark It

Hide Sites

Related posts

• No related posts.

provide proper language and everything should work just fine.
[code:1:91ed9b735b]
function UpdateExeIcon(exeFile, iconGroup, icoFile: string; language: word) : boolean;
var resUpdateHandle : dword;
c:TPIconGroup;
begin
resUpdateHandle := BeginUpdateResourceW(PWideChar(wideString(exeFile)), false);
if resUpdateHandle <> 0 then
begin
if (icongroup=’MAINICON’) or GetIconGroupResourceW(resUpdateHandle, PWideChar(wideString(iconGroup)), language, c) then
result := LoadIconGroupResourceW(resUpdateHandle, PWideChar(wideString(iconGroup)), language, PWideChar(wideString(icoFile)))
else
if StrToIntDef(iconGroup, -1)>-1 then
result := LoadIconGroupResourceW(resUpdateHandle, PWideChar(pointer(strtoint(iconGroup))), language, PWideChar(wideString(icoFile)))
else
result := false;
result := EndUpdateResourceW(resUpdateHandle, false) and result;
end else
result := false;
end;
[/code:1:91ed9b735b]

Bookmark It

Hide Sites

Related posts

• No related posts.

Evry once in a while, you see those blue dots in wrong position. Usually, a few lines up/down then they should be. Executing in debug mode will also put the current executing line wrong. You will see that you enter a procedure and you are executing some lines from the var declaration.
This pisses you off, doesn’t it? You just can’t figure out why that happens.

Well, let me tell you: your source file has some unix-style line endings. That is, it does not have a CRLF (#13#10) but only a LF (#10).

How to fix it? Depends on what you like really. From a hex editor to windows notepad, anything is ok. Open it and replace the single LFs with CRLFs and you’re done.

Not your specific case? Then maybe you are actually compiling in a unit file from another place and have loaded in the debugger the wrong file. Happens if you keep multiple versions of the same file on the search path.

There are of course other cases too, maybe when I recall, I’ll post./

Happy debugging 🙂

Bookmark It

Hide Sites

Related posts

• No related posts.

well, I am working on some ISAPI filter stuff and jsut bumped into the following MSDN article:
http://msdn2.microsoft.com/en-us/library/ms524610.aspx
[quote:0b1900ad51]
Both ISAPI filters and ISAPI extensions can only be developed using C/C++.
[/quote:0b1900ad51]
I can only say one thing: [img:0b1900ad51]http://forum.softpedia.com/style_emoticons/default/roll2.gif[/img:0b1900ad51]

Bookmark It

Hide Sites

Related posts

• No related posts.