Solved

Shutting down application on pipes message

Posted on 2009-05-05
4
592 Views
Last Modified: 2012-05-06
Hi, I'm trying to use rlibby's TPipeServer/Client components for interprocess communication. In this case I want to shut down the server application upon receiving the message 'QUIT'. This causes problems because the pipeserver component does not seem to handle it very well when it is being destroyed while handling a message. It causes an access violation in ntdll read of address 00000010.

Does anyone have a solution on how to do this, maybe by changing the code on the message recieving end, or by modifying the pipe component?

Also see the related question on how to get the pipes components working.

Im using Delphi 2009 v12.0.3210.17555 and the pipes components of 10.20.2008.
Procedure TForm1.PipeServer1PipeMessage(Sender: TObject; Pipe: HPIPE; Stream: TStream);

var S: AnsiString;

begin

  SetLength(S, Stream.Size);

  Stream.Read(S[1], Length(S));

  if (S = 'QUIT') then

  begin

    PipeServer1.Active := false;

    Close; // causes access violation in pipeserver component!

  end;

end;

Open in new window

0
Comment
Question by:mrdnote
  • 2
4 Comments
 
LVL 37

Assisted Solution

by:Geert Gruwez
Geert Gruwez earned 100 total points
ID: 24303296
give it time to close down, send a close message instead ...

if (S = 'QUIT') then
begin
  PipeServer1.Active := false;
  PostMessage(Handle, WM_CLOSE, 0, 0);
end;
0
 

Author Comment

by:mrdnote
ID: 24303349
Thanx Geert. Somehow setting Active to False does something to the message queue, causing it not to process the WM_CLOSE message. If I remove the PipeServer1.Active := false line, the WM_CLOSE is propagated and the form closes, however the access violation remains :(
0
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 24303390
what does the stack trace tell you ?
press - Ctrl-F3 to see what originated a procedure.

That could tell you what the cause of the violation is.
Check all procedures in this list to see if they don't access a component which has been freed allready.
You may have to press F7 once, to get a decent stack trace.
0
 
LVL 26

Accepted Solution

by:
Russell Libby earned 150 total points
ID: 24304418

Don't touch the active state in the event handler for the pipe server, because it will cause the message queue to flush when the DoShutdown procedure gets called. Just PostMessage the WM_CLOSE to your handle, and then in the FormClose set the Active state to false.

Regards,
Russell
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now