Kdtop at 00:33, 17 July 2015

2015-07-17T00:33:30Z

← Older revision		Revision as of 00:33, 17 July 2015
Line 40:		Line 40:
	{Public declarations}		{Public declarations}
	// Added declaration of TermTypeList.		// Added declaration of TermTypeList.
	TermTypeList: ~~TStrings~~;		TermTypeList: TStringList;
	'''end;'''		'''end;'''

Kdtop at 21:14, 5 July 2015

2015-07-05T21:14:55Z

← Older revision		Revision as of 21:14, 5 July 2015
Line 128:		Line 128:
	'''end;'''		'''end;'''

			'''end.'''

	<h4>[[RPC_HELP_Tutorial_See_Also\|PREV: See Also: FileMan Delphi Components (FMDC)]]</h4>		<h4>[[RPC_HELP_Tutorial_See_Also\|PREV: See Also: FileMan Delphi Components (FMDC)]]</h4>
			<h4>[[RPC_Broker_Help#Tutorial\|Tutorial Home]]</h4>
	~~'''end.'''~~

Kdtop at 21:13, 5 July 2015

2015-07-05T21:13:46Z

← Older revision		Revision as of 21:13, 5 July 2015
Line 128:		Line 128:
	'''end;'''		'''end;'''

			<h4>[[RPC_HELP_Tutorial_See_Also\|PREV: See Also: FileMan Delphi Components (FMDC)]]</h4>

	'''end.'''		'''end.'''

Kdtop: Created page with " RPC Broker Help Home Tutorial Home

Tutorial Source Code

'''unit''' tut1; '''interface''' ..."

2015-07-05T21:13:06Z

Created page with " RPC Broker Help Home Tutorial Home <h2>Tutorial Source Code</h2> '''unit''' tut1; '''interface''' ..."

New page

[[RPC_Broker_Help| RPC Broker Help Home]]

[[RPC_Broker_Help#Tutorial|Tutorial Home]]
<h2>Tutorial Source Code</h2>

'''unit''' tut1;

'''interface'''

'''uses'''
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, Trpcb, RPCConf1, StdCtrls, MFunStr;

'''type'''
TForm1 = class(TForm)
brkrRPCBroker1: TRPCBroker;
ListBox1: TListBox;
Button1: TButton;
Name: TEdit;
RightMargin: TEdit;
FormFeed: TEdit;
OpenExecute: TEdit;
CloseExecute: TEdit;
PageLength: TEdit;
BackSpace: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
'''procedure''' FormCreate(Sender: TObject);
'''procedure''' Button1Click(Sender: TObject);
'''procedure''' ListBox1Click(Sender: TObject);
'''procedure''' FormDestroy(Sender: TObject);
'''private'''
{Private declarations}
'''public'''
{Public declarations}
// Added declaration of TermTypeList.
TermTypeList: TStrings;
'''end;'''

'''var'''
Form1: TForm1;

'''implementation'''

{$R *.DFM}

'''procedure''' TForm1.FormCreate(Sender: TObject);
'''var'''
ServerStr: String;
PortStr: String;
'''begin'''
TermTypeList:=TStringList.Create;
// Get the correct port and server from the Registry.
'''if''' GetServerInfo(ServerStr,PortStr)<> mrCancel '''then begin''' {connectOK begin}
brkrRPCBroker1.Server:=ServerStr;
brkrRPCBroker1.ListenerPort:=StrToInt(PortStr);
// Establish a connection to the RPC Broker server.
'''try'''
brkrRPCBroker1.Connected:=True;
'''if''' not brkrRPCBroker1.CreateContext('ZxxxTT TERMTYPE') '''then'''
Application.Terminate;
'''except'''
'''on '''EBrokerError '''do begin''' {error begin}
ShowMessage('Connection to server could not be established!');
Application.Terminate;
'''end;''' {error end}
'''end;''' {try end}
'''end else''' {connectOK end}
Application.Terminate;
'''end;'''

'''procedure''' TForm1.Button1Click(Sender: TObject);
'''var'''
i: integer;
'''begin'''
brkrRPCBroker1.RemoteProcedure:='ZxxxTT LIST';
'''try'''
'''begin''' {call begin}
brkrRPCBroker1.Call;
for i:=0 to (brkrRPCBroker1.Results.Count-1) '''do begin''' {copy begin}
ListBox1.Items.Add(piece(brkrRPCBroker1.Results[i],'^',2));
// Added line.
TermTypeList.Add(brkrRPCBroker1.Results[i]);
'''end;''' {copy end}
'''end;''' {call end}
'''except'''
'''on '''EBrokerError '''do begin'''
ShowMessage('A problem was encountered communicating with the server.');
'''end;''' {try end}
'''end;'''

'''procedure''' TForm1.ListBox1Click(Sender: TObject);
'''var'''
ien: String;
'''begin'''
'''if''' (ListBox1.ItemIndex <> -1) '''then begin''' {displayitem begin}
ien:=piece(TermTypeList[ListBox1.ItemIndex],'^',1);
brkrRPCBroker1.RemoteProcedure:='ZxxxTT RETRIEVE';
brkrRPCBroker1.Param[0].Value := ien;
brkrRPCBroker1.Param[0].PType := literal;
'''try'''
'''begin''' {call code begin}
brkrRPCBroker1.Call;
Name.Text:=piece(brkrRPCBroker1.Results[0],'^',1);
RightMargin.Text:=piece(brkrRPCBroker1.Results[0],'^',2);
FormFeed.Text:=piece(brkrRPCBroker1.Results[0],'^',3);
PageLength.Text:=piece(brkrRPCBroker1.Results[0],'^',4);
BackSpace.Text:=piece(brkrRPCBroker1.Results[0],'^',5);
OpenExecute.Text:=brkrRPCBroker1.Results[1];
CloseExecute.Text:=brkrRPCBroker1.Results[2];
'''end;''' {call code end}
'''except'''
'''on '''EBrokerError '''do'''
ShowMessage('A problem was encountered communicating with the server.');
'''end;''' {try end}
'''end;''' {displayitem end}
'''end;'''

'''procedure''' TForm1.FormDestroy(Sender: TObject);
'''begin'''
TermTypeList.Free;
'''end;'''

'''end.'''

RPC HELP Tutorial Tutorial Source Code - Revision history

Kdtop at 00:33, 17 July 2015

Kdtop at 21:14, 5 July 2015

Kdtop at 21:13, 5 July 2015

Kdtop: Created page with " RPC Broker Help Home Tutorial Home

Tutorial Source Code