'Re: [xaudio-sdk] messages'

[prev in list] [next in list] [prev in thread] [next in thread] 

List: xaudio-sdk
Subject: Re: [xaudio-sdk] messages
From: Mark Chambers <mark.chambers () objectmastery ! com>
Date: 2001-05-29 0:32:45
[Download RAW message or body]

Michael Schlagmueller wrote:

> Hi ! Does anyone know how to communticate between two different
> (self-written) applications ? I guess I have to use windows messages
> (OS: WIN98) but I don't know how to do it.The easiest example: the
> first program has a button und when I press this button a function in
> the 2nd program will be executed.Does anyone know how to handle that ?
> (i'm using Delphi 4 but i can also code C++) Greetz  Michael

This is off topic but a very useful technique and short enough to post.
Sorry to anyone who is not interested.

You could use a windows message and an atom.  The following example
allows a client to send a filename and line number to a delphi
designtime package to open the specified file at the specified line.  We
use it to allow our test harness to interact with delphi.  It should
give you a good example of how to pass limited information from one app
to another.

p.s. there is some debugging code in here - you should be able to just
delete any showmessages.

This is the sender unit

unit FTest;

interface

uses
  Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
    omIDEControllerClients

  ;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowFileLine(Edit1.Text, StrToInt(Edit2.Text));
end;

end.

This is the 'sender' helper unit

unit omIDEControllerClients;

interface

procedure ShowFileLine(FileName: string; LineNum: Integer);

implementation

uses
    SysUtils
  , Windows
  , Messages
  ;

procedure ShowFileLine(FileName: string; LineNum: Integer);
var
  WmX: Word;
  Buffer: array[0..255] of char;
  Atom: TAtom;
  Str: string;
begin
  Wmx:= RegisterWindowMessage('omIDEController');
  Str:= FileName + '@' + IntToStr(LineNum);
  Atom:= GlobalAddAtom(StrPCopy(Buffer, Str));

  SendMessage(HWND_Broadcast, WmX, 0, Atom);
  GlobalDeleteAtom(Atom);
end;

and this is the receiver (which we build into a package, but that you
can put into one of the forms in your receiving application).

unit omIDEControllers;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
  StdCtrls, ComCtrls{, ToolWin, ImgList};

type
  TFormIDEController = class(TForm)
  public
    procedure DefaultHandler(var Message); override;
  end;

var
  FormIDEController: TFormIDEController = nil;

implementation
{$R *.DFM}
uses
    ExptIntf
  , EditIntf
  , ToolIntf
  , ToolsAPI
  , IniFiles
  , omURLs
  , omStrUtils
  , omMathUtils
  ;

procedure ShowMessage(Str: string);
begin
//  Dialogs.ShowMessage(Str);
end;

procedure TFormIDEController.DefaultHandler(var Message);
var
  Buffer: array[0..255] of char;
  WmX: Word;
  Str: string;
  TargetFileName: string;
  LineStr: string;
  LineNum: Integer;
  Index: Integer;
  ProjectDof: TIniFile;
  FileName: TomFilename;

  FModIntf: TIModuleInterface;
  FEditIntf: TIEditorInterface;
  EditView: TIEditView;
  EditPos: TEditPos;
  Exename: string;
  UnitName: string;
  ProjectDir: string;
  SearchPath: string;
  TempPath: string;

  Found: Boolean;

begin
  inherited DefaultHandler(Message);

  Wmx:= RegisterWindowMessage('omIDEController');

  with TMessage(Message) do begin
    if Msg = WmX then begin
      if GlobalGetAtomName(lParam, Buffer, 255) <> 0 then begin
        SetForegroundWindow(Application.Handle);

        Str:= StrPas(Buffer);
        Index:= Pos('@', Str);
        TargetFileName:= Copy(Str, 1, Index-1);
        LineStr:= Copy(Str, Index+1, Maxint);
        LineNum:= StrToInt(LineStr);
        ShowMessage('TargetFileName = ' + TargetFileName);

        ProjectDir := ExtractFileDir(ToolServices.GetProjectName);
        ShowMessage('ProjectName = ' + ToolServices.GetProjectName);

        Found:= False;
        FileName:= TomFilename.Create;
        try
          // make full filename if TargetFilename is relative
          if (ExtractFilename(TargetFileName) <> TargetFileName) then
begin
            ChDir(ProjectDir);
            TargetFileName := ExpandFilename(TargetFileName);
            if (not FileExists(TargetFileName)) then begin
              Dialogs.ShowMessage('File "' + TargetFilename + '" not
found.');
              exit;
            end
            else begin
              Found:= true;
              Filename.Full:= TargetFileName;
            end
          end;

          // see if the file is mentioned in the project
          if not Found then begin
            for Index:= 0 to ToolServices.GetUnitCount - 1 do begin
              UnitName:= ToolServices.GetUnitName(Index);
              FileName.Full:= UnitName;
              ShowMessage(
                  'Unit[' + IntToStr(Index) + ']:' + UnitName +
                  #13 +
                  'Partial: "' + Filename.Partial + '"' +
                  #13 +
                  'TargetFileName: "' + TargetFileName + '"'
                  );
              if SameText(FileName.Partial, TargetFileName) then begin
                Found:= True;
                break;
              end;
            end;
          end;

          // see if we can find it on the path
          if not Found then begin
            ExeName:= ParamStr(0);
            Index:= Pos('Delphi5', ExeName);
            Delete(ExeName, Index+7, MaxInt);

            ShowMessage('$(Delphi)=' + ExeName);

            FileName.Full:= ToolServices.GetProjectName;
            FileName.Extension:= 'dof';
            ProjectDof:= TInifile.Create(FileName.Full);
            try
              SearchPath:= ProjectDof.ReadString('Directories',
'SearchPath', '');

              SubstituteText('$(Delphi)', ExeName, SearchPath, true);
              ShowMessage('SearchPath = ' + SearchPath);

              TempPath:= FileSearch(TargetFileName, SearchPath);
              ShowMessage('FileSearch: for "' + TargetFileName + ' -> "'
+ TempPath + '"');
              Found:= TempPath <> '';
              Filename.Full:= TempPath;

            finally
              FreeAndNil(ProjectDof);
            end;
          end;

          if not found then begin
            Dialogs.ShowMessage('File "' + TargetFilename + '" not
found.');
            exit;
          end;

          ShowMessage('Opening...' + FileName.Full);
          Toolservices.OpenFile(FileName.Full);
          FModIntf := ToolServices.GetModuleInterface(FileName.Full);
          try
            if not Assigned(FModIntf) then begin
              Exit;
            end;
            FModIntf.ShowSource;
            FEditIntf := FModIntf.GetEditorInterface;
            if not Assigned(FEditIntf) then begin
              Exit;
            end;
            EditView := FEditIntf.GetView(0);
            if not Assigned(EditView) then begin
              Exit;
            end;
            EditPos.Col := 1;
            EditPos.Line := Max(1, LineNum - 10);
            EditView.TopPos := EditPos;

            EditPos.Col := 1;
            EditPos.Line := LineNum;
            EditView.CursorPos := EditPos;
            FModIntf.ShowSource;
          finally
            FModIntf.Free;
          end;

        finally
          FreeAndNil(FileName);
        end;
      end;
    end;
  end;
end;

initialization
  if (BorlandIDEServices <> nil) then begin
    FormIDEController := TFormIDEController.Create(nil);
  end;

finalization
  if FormIDEController <> nil then begin
    FormIDEController.Free;
  end;

end.

[Attachment #3 (text/html)]

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<body bgcolor="#FFFFFF">
&nbsp;
Michael Schlagmueller wrote:
<blockquote TYPE=CITE><style></style>
Hi
!&nbsp;Does anyone know
how to communticate between two different (self-written) applications ?
I guess I have to use windows messages (OS: WIN98) but I don't know how
to do it.The easiest example:
the first program has a button und when I press this button a function
in the 2nd program will be executed.Does anyone know how to handle that ? (i'm using Delphi 4 but i can also code
C++)&nbsp;Greetz&nbsp; Michael</blockquote>

This is off topic but a very useful technique and short enough to
post.&nbsp; Sorry to anyone who is not interested.
You could use a windows message and an atom.&nbsp; The following example
allows a client to send a filename and line number to a delphi designtime
package to open the specified file at the specified line.&nbsp; We use
it to allow our test harness to interact with delphi.&nbsp; It should give
you a good example of how to pass limited information from one app to another.
 &nbsp;
p.s. there is some debugging code in here - you should be able to just
delete any showmessages.
 &nbsp;
This is the sender unit
<tt>unit FTest;</tt><tt></tt> <tt>interface</tt><tt></tt> \
<tt>uses</tt> <tt>&nbsp; \
Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,</tt>
 <tt>&nbsp; StdCtrls;</tt><tt></tt> <tt>type</tt>
 <tt>&nbsp; TForm1 = class(TForm)</tt>
 <tt>&nbsp;&nbsp;&nbsp; Button1: TButton;</tt>
 <tt>&nbsp;&nbsp;&nbsp; Edit1: TEdit;</tt>
 <tt>&nbsp;&nbsp;&nbsp; Label1: TLabel;</tt>
 <tt>&nbsp;&nbsp;&nbsp; Edit2: TEdit;</tt>
 <tt>&nbsp;&nbsp;&nbsp; procedure Button1Click(Sender:
TObject);</tt>
 <tt>&nbsp; private</tt>
 <tt>&nbsp;&nbsp;&nbsp; { Private declarations
}</tt><tt></tt>
<tt>&nbsp; public</tt>
 <tt>&nbsp;&nbsp;&nbsp; { Public declarations
}</tt>
 <tt>&nbsp; end;</tt><tt></tt> <tt>var</tt>
 <tt>&nbsp; Form1: TForm1;</tt><tt></tt> <tt>implementation</tt><tt></tt> \
<tt>{$R *.DFM}</tt><tt></tt> <tt>uses</tt>
 <tt>&nbsp;&nbsp;&nbsp; omIDEControllerClients</tt>
 <tt>&nbsp;</tt>
 <tt>&nbsp; ;</tt><tt></tt> <tt>procedure \
TForm1.Button1Click(Sender: TObject);</tt> <tt>begin</tt> <tt>&nbsp; \
ShowFileLine(Edit1.Text, StrToInt(Edit2.Text));</tt> <tt>end;</tt><tt></tt> <tt>end.</tt> <tt></tt>&nbsp;<tt></tt> This is \
the 'sender' helper unit &nbsp;
<tt>unit omIDEControllerClients;</tt><tt></tt> <tt>interface</tt><tt></tt> \
<tt>procedure ShowFileLine(FileName: string; LineNum: \
Integer);</tt><tt></tt> <tt>implementation</tt><tt></tt> \
<tt>uses</tt> <tt>&nbsp;&nbsp;&nbsp; SysUtils</tt> <tt>&nbsp; , Windows</tt> <tt>&nbsp; , \
Messages</tt> <tt>&nbsp; ;</tt><tt></tt> <tt>procedure \
ShowFileLine(FileName: string; LineNum: Integer);</tt>
 <tt>var</tt>
 <tt>&nbsp; WmX: Word;</tt>
 <tt>&nbsp; Buffer: array[0..255] of char;</tt>
 <tt>&nbsp; Atom: TAtom;</tt>
 <tt>&nbsp; Str: string;</tt>
 <tt>begin</tt>
 <tt>&nbsp; Wmx:= \
RegisterWindowMessage('omIDEController');</tt> <tt>&nbsp; Str:= FileName + '@' + IntToStr(LineNum);</tt> \
 <tt>&nbsp; Atom:= GlobalAddAtom(StrPCopy(Buffer, \
Str));</tt><tt></tt> <tt>&nbsp; SendMessage(HWND_Broadcast, WmX, 0, Atom);</tt>
 <tt>&nbsp; GlobalDeleteAtom(Atom);</tt>
 <tt>end;</tt>
and this is the receiver (which we build into a package, but that you
can put into one of the forms in your receiving application).
<tt>unit omIDEControllers;</tt><tt></tt> <tt>interface</tt>
 <tt>uses</tt>
 <tt>&nbsp; Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,</tt>
 <tt>&nbsp; StdCtrls, ComCtrls{, ToolWin, \
ImgList};</tt> <tt></tt>&nbsp;<tt></tt> <tt>type</tt>
 <tt>&nbsp; TFormIDEController = class(TForm)</tt>
 <tt>&nbsp; public</tt>
 <tt>&nbsp;&nbsp;&nbsp; procedure DefaultHandler(var
Message); override;</tt>
 <tt>&nbsp; end;</tt>
 <tt></tt>&nbsp;<tt></tt> <tt>var</tt>
 <tt>&nbsp; FormIDEController: TFormIDEController
= nil;</tt>
 <tt></tt>&nbsp;<tt></tt> <tt>implementation</tt>
 <tt>{$R *.DFM}</tt>
 <tt>uses</tt>
 <tt>&nbsp;&nbsp;&nbsp; ExptIntf</tt>
 <tt>&nbsp; , EditIntf</tt>
 <tt>&nbsp; , ToolIntf</tt>
 <tt>&nbsp; , ToolsAPI</tt>
 <tt>&nbsp; , IniFiles</tt>
 <tt>&nbsp; , omURLs</tt>
 <tt>&nbsp; , omStrUtils</tt>
 <tt>&nbsp; , omMathUtils</tt>
 <tt>&nbsp; ;</tt>
 <tt></tt>&nbsp;<tt></tt> <tt>procedure ShowMessage(Str: \
string);</tt> <tt>begin</tt>
 <tt>//&nbsp; Dialogs.ShowMessage(Str);</tt>
 <tt>end;</tt>
 <tt></tt>&nbsp;<tt></tt> <tt>procedure \
TFormIDEController.DefaultHandler(var Message);</tt>
 <tt>var</tt>
 <tt>&nbsp; Buffer: array[0..255] of char;</tt>
 <tt>&nbsp; WmX: Word;</tt>
 <tt>&nbsp; Str: string;</tt>
 <tt>&nbsp; TargetFileName: string;</tt>
 <tt>&nbsp; LineStr: string;</tt>
 <tt>&nbsp; LineNum: Integer;</tt>
 <tt>&nbsp; Index: Integer;</tt>
 <tt>&nbsp; ProjectDof: TIniFile;</tt>
 <tt>&nbsp; FileName: TomFilename;</tt><tt></tt> <tt>&nbsp; FModIntf: \
TIModuleInterface;</tt> <tt>&nbsp; FEditIntf: \
TIEditorInterface;</tt> <tt>&nbsp; EditView: \
TIEditView;</tt> <tt>&nbsp; EditPos: \
TEditPos;</tt> <tt>&nbsp; Exename: \
string;</tt> <tt>&nbsp; UnitName: \
string;</tt> <tt>&nbsp; ProjectDir: \
string;</tt> <tt>&nbsp; SearchPath: \
string;</tt> <tt>&nbsp; TempPath: \
string;</tt><tt></tt> <tt>&nbsp; Found: Boolean;</tt><tt></tt> <tt>begin</tt>
 <tt>&nbsp; inherited \
DefaultHandler(Message);</tt><tt></tt> \
<tt>&nbsp; Wmx:= \
RegisterWindowMessage('omIDEController');</tt><tt></tt> <tt>&nbsp; with \
TMessage(Message) do begin</tt> <tt>&nbsp;&nbsp;&nbsp; if Msg = WmX then begin</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if GlobalGetAtomName(lParam, Buffer, \
255) &lt;> 0 then begin</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
SetForegroundWindow(Application.Handle);</tt><tt></tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Str:= \
StrPas(Buffer);</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Index:= Pos('@', \
Str);</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TargetFileName:= Copy(Str, \
1, Index-1);</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LineStr:= Copy(Str, \
Index+1, Maxint);</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LineNum:= \
StrToInt(LineStr);</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
ShowMessage('TargetFileName = ' + TargetFileName);</tt><tt></tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ProjectDir := \
ExtractFileDir(ToolServices.GetProjectName);</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ShowMessage('ProjectName = \
' + ToolServices.GetProjectName);</tt><tt></tt> \
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Found:= \
False;</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FileName:= \
TomFilename.Create;</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
// make full filename if TargetFilename is relative</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
if (ExtractFilename(TargetFileName) &lt;> TargetFileName) then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 ChDir(ProjectDir);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 TargetFileName := ExpandFilename(TargetFileName);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 if (not FileExists(TargetFileName)) then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Dialogs.ShowMessage('File "' + TargetFilename + '" not found.');</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 exit;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 end</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 else begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Found:= true;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Filename.Full:= TargetFileName;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 end</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
end;</tt><tt></tt>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
// see if the file is mentioned in the project</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
if not Found then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 for Index:= 0 to ToolServices.GetUnitCount - 1 do begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 UnitName:= ToolServices.GetUnitName(Index);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 FileName.Full:= UnitName;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 ShowMessage(</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 'Unit[' + IntToStr(Index) + ']:' + UnitName +</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 #13 +</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 'Partial: "' + Filename.Partial + '"' +</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 #13 +</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 'TargetFileName: "' + TargetFileName + '"'</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 );</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 if SameText(FileName.Partial, TargetFileName) then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Found:= True;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 break;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 end;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 end;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
end;</tt><tt></tt>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
// see if we can find it on the path</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
if not Found then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 ExeName:= ParamStr(0);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Index:= Pos('Delphi5', ExeName);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Delete(ExeName, Index+7, MaxInt);</tt><tt></tt>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 ShowMessage('$(Delphi)=' + ExeName);</tt><tt></tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
FileName.Full:= ToolServices.GetProjectName;</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
FileName.Extension:= 'dof';</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
ProjectDof:= TInifile.Create(FileName.Full);</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
try</tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 SearchPath:= ProjectDof.ReadString('Directories', 'SearchPath', \
'');</tt><tt></tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 SubstituteText('$(Delphi)', ExeName, SearchPath, true);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 ShowMessage('SearchPath = ' + SearchPath);</tt><tt></tt> <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 TempPath:= FileSearch(TargetFileName, SearchPath);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 ShowMessage('FileSearch: for "' + TargetFileName + ' -> "' + TempPath +
'"');</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Found:= TempPath &lt;> '';</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Filename.Full:= TempPath;</tt><tt></tt>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 finally</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 FreeAndNil(ProjectDof);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 end;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
end;</tt><tt></tt>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
if not found then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Dialogs.ShowMessage('File "' + TargetFilename + '" not found.');</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 exit;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
end;</tt><tt></tt>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
ShowMessage('Opening...' + FileName.Full);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Toolservices.OpenFile(FileName.Full);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
FModIntf := ToolServices.GetModuleInterface(FileName.Full);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
try</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 if not Assigned(FModIntf) then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Exit;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 end;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 FModIntf.ShowSource;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 FEditIntf := FModIntf.GetEditorInterface;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 if not Assigned(FEditIntf) then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Exit;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 end;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 EditView := FEditIntf.GetView(0);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 if not Assigned(EditView) then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Exit;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 end;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 EditPos.Col := 1;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 EditPos.Line := Max(1, LineNum - 10);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 EditView.TopPos := EditPos;</tt><tt></tt>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 EditPos.Col := 1;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 EditPos.Line := LineNum;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 EditView.CursorPos := EditPos;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 FModIntf.ShowSource;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
finally</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 FModIntf.Free;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
end;</tt><tt></tt>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
finally</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
FreeAndNil(FileName);</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
end;</tt>
 <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;</tt>
 <tt>&nbsp;&nbsp;&nbsp; end;</tt>
 <tt>&nbsp; end;</tt>
 <tt>end;</tt>
 <tt></tt>&nbsp;<tt></tt> <tt>initialization</tt>
 <tt>&nbsp; if (BorlandIDEServices &lt;> nil)
then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp; FormIDEController := \
TFormIDEController.Create(nil);</tt> <tt>&nbsp; \
end;</tt><tt></tt> <tt>finalization</tt> <tt>&nbsp; if \
FormIDEController &lt;> nil then begin</tt>
 <tt>&nbsp;&nbsp;&nbsp; FormIDEController.Free;</tt>
 <tt>&nbsp; end;</tt><tt></tt> <tt>end.</tt>
</body>
</html>

_______________________________________________
xaudio-sdk mailing list
xaudio-sdk@mpegtv.com
http://mailman.bok.net/mailman/listinfo/xaudio-sdk

[prev in list] [next in list] [prev in thread] [next in thread] 