examples/Delphi/EXFirstU.pas

(* ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is TurboPower SysTools
 *
 * The Initial Developer of the Original Code is
 * TurboPower Software
 *
 * Portions created by the Initial Developer are Copyright (C) 1996-2002
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)

(*****************************************************************************

This unit shows a basic implementation of the STFIRST Unit methods working
with the StWmDataCopy component. Compile the project and then start it, giving
a text file as part of the command line parameter. For example:

  EXFIRST c:\myfiles\afile.txt

You can also start the program without a parameter and use the Load button
to load a text file into the TMemo component

Keep that program running and try to start a second instance, this time
specifying a different file. For example:

  EXFIRST c:\myfiles\File2.txt

Note that a second instance of the program does not run but that File2
is loaded into the TMemo component.

*******
WARNING
*******
If running this under Windows 9x, TMemo cannot accept a file larger
than about 32K. If you try to load a file via the command line that is larger,
Delphi raises an execption and the application is terminated. You could avoid
this by modifying the DoFileOpen method to check the size of the file before
it's loaded into the TMemo

******************************************************************************)


unit EXFirstU;

interface

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

  StBase, StwmDCpy;

type
  TfrmEXWDC = class(TForm)
    StWMDataCopy1: TStWMDataCopy;
    Memo1: TMemo;
    btnLoadFile: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure btnLoadFileClick(Sender: TObject);
    procedure StWMDataCopy1DataReceived(Sender: TObject;
      CopyData: TCopyDataStruct);
  private
    { Private declarations }
  public
    { Public declarations }

    procedure DoFileOpen(FN : ShortString);
  end;

var
  frmEXWDC: TfrmEXWDC;

implementation

{$R *.DFM}

procedure TfrmEXWDC.FormCreate(Sender: TObject);
begin
  if (ParamCount > 0) then
    DoFileOpen(ParamStr(1));
end;

procedure TfrmEXWDC.DoFileOpen(FN : ShortString);
begin
  Memo1.Clear;
  if (FileExists(FN)) then
    Memo1.Lines.LoadFromFile(FN);
end;

procedure TfrmEXWDC.btnLoadFileClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TfrmEXWDC.StWMDataCopy1DataReceived(Sender: TObject;
  CopyData: TCopyDataStruct);
var
  S : string;
  I : Longint;
begin
  S := String(PChar(CopyData.lpData));

  ShowMessage(S);
  I := pos(' ', S);
  if (I = 0) then
    I := pos(#9, S);
  if (I > 0) then begin
    S := Copy(S, I+1, Length(S));
    DoFileOpen(S);
  end;
end;

end.


1	(* *** BEGIN LICENSE BLOCK ***
2	* Version: MPL 1.1
3	*
4	* The contents of this file are subject to the Mozilla Public License Version
5	* 1.1 (the "License"); you may not use this file except in compliance with
6	* the License. You may obtain a copy of the License at
7	* http://www.mozilla.org/MPL/
8	*
9	* Software distributed under the License is distributed on an "AS IS" basis,
10	* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11	* for the specific language governing rights and limitations under the
12	* License.
13	*
14	* The Original Code is TurboPower SysTools
15	*
16	* The Initial Developer of the Original Code is
17	* TurboPower Software
18	*
19	* Portions created by the Initial Developer are Copyright (C) 1996-2002
20	* the Initial Developer. All Rights Reserved.
21	*
22	* Contributor(s):
23	*
24	* *** END LICENSE BLOCK *** *)
25
26	(*****************************************************************************
27
28	This unit shows a basic implementation of the STFIRST Unit methods working
29	with the StWmDataCopy component. Compile the project and then start it, giving
30	a text file as part of the command line parameter. For example:
31
32	EXFIRST c:\myfiles\afile.txt
33
34	You can also start the program without a parameter and use the Load button
35	to load a text file into the TMemo component
36
37	Keep that program running and try to start a second instance, this time
38	specifying a different file. For example:
39
40	EXFIRST c:\myfiles\File2.txt
41
42	Note that a second instance of the program does not run but that File2
43	is loaded into the TMemo component.
44
45	*******
46	WARNING
47	*******
48	If running this under Windows 9x, TMemo cannot accept a file larger
49	than about 32K. If you try to load a file via the command line that is larger,
50	Delphi raises an execption and the application is terminated. You could avoid
51	this by modifying the DoFileOpen method to check the size of the file before
52	it's loaded into the TMemo
53
54	******************************************************************************)
55
56
57	unit EXFirstU;
58
59	interface
60
61	uses
62	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
63	Dialogs, StdCtrls,
64
65	StBase, StwmDCpy;
66
67	type
68	TfrmEXWDC = class(TForm)
69	StWMDataCopy1: TStWMDataCopy;
70	Memo1: TMemo;
71	btnLoadFile: TButton;
72	OpenDialog1: TOpenDialog;
73	procedure FormCreate(Sender: TObject);
74	procedure btnLoadFileClick(Sender: TObject);
75	procedure StWMDataCopy1DataReceived(Sender: TObject;
76	CopyData: TCopyDataStruct);
77	private
78	{ Private declarations }
79	public
80	{ Public declarations }
81
82	procedure DoFileOpen(FN : ShortString);
83	end;
84
85	var
86	frmEXWDC: TfrmEXWDC;
87
88	implementation
89
90	{$R *.DFM}
91
92	procedure TfrmEXWDC.FormCreate(Sender: TObject);
93	begin
94	if (ParamCount > 0) then
95	DoFileOpen(ParamStr(1));
96	end;
97
98	procedure TfrmEXWDC.DoFileOpen(FN : ShortString);
99	begin
100	Memo1.Clear;
101	if (FileExists(FN)) then
102	Memo1.Lines.LoadFromFile(FN);
103	end;
104
105	procedure TfrmEXWDC.btnLoadFileClick(Sender: TObject);
106	begin
107	if OpenDialog1.Execute then
108	Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
109	end;
110
111	procedure TfrmEXWDC.StWMDataCopy1DataReceived(Sender: TObject;
112	CopyData: TCopyDataStruct);
113	var
114	S : string;
115	I : Longint;
116	begin
117	S := String(PChar(CopyData.lpData));
118
119	ShowMessage(S);
120	I := pos(' ', S);
121	if (I = 0) then
122	I := pos(#9, S);
123	if (I > 0) then begin
124	S := Copy(S, I+1, Length(S));
125	DoFileOpen(S);
126	end;
127	end;
128
129	end.
130
131