You've already forked lazarus-ccr
74d5466765
server : TCP server implementatiion ( using synapse library ) in synapse_tcp_server.pas Delphi : first binary format support bugs fix in the WSDL generation for the server side git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@158 8e941d3f-bd1b-0410-a28a-d453659cc2b4
20 lines
371 B
ObjectPascal
20 lines
371 B
ObjectPascal
program user_client;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
|
cthreads,
|
|
{$ENDIF}{$ENDIF}
|
|
Interfaces, // this includes the LCL widgetset
|
|
Forms
|
|
, umain, RunTimeTypeInfoControls, user_edit_imp;
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TfMain, fMain);
|
|
Application.CreateForm(TfUserEdit, fUserEdit);
|
|
Application.Run;
|
|
end.
|
|
|