Index: VerpakkingsDefinitie/UserServerService.pas =================================================================== diff -u --- VerpakkingsDefinitie/UserServerService.pas (revision 0) +++ VerpakkingsDefinitie/UserServerService.pas (revision 533) @@ -0,0 +1,296 @@ +// ************************************************************************ // +// The types declared in this file were generated from data read from the +// WSDL File described below: +// WSDL : http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.CLS?WSDL=1 +// >Import : http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.CLS?WSDL=1>0 +// Encoding : UTF-8 +// Version : 1.0 +// (16/04/2021 10:15:08 - - $Rev: 45757 $) +// ************************************************************************ // + +unit UserServerService; + +interface + +uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; + +const + IS_OPTN = $0001; + IS_REF = $0080; + + +type + + // ************************************************************************ // + // The following types, referred to in the WSDL document are not being represented + // in this file. They are either aliases[@] of other types represented or were referred + // to but never[!] declared in the document. The types from the latter category + // typically map to predefined/known XML or Embarcadero types; however, they could also + // indicate incorrect WSDL documents that failed to declare or import a schema type. + // ************************************************************************ // + // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] + // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] + + pxStatus = class; { "http://vhintra.vanhoecke.be"[GblCplx] } + pxLogIn = class; { "http://vhintra.vanhoecke.be"[GblCplx] } + + + + // ************************************************************************ // + // XML : pxStatus, global, + // Namespace : http://vhintra.vanhoecke.be + // ************************************************************************ // + pxStatus = class(TRemotable) + private + FIsOK: Boolean; + FIsOK_Specified: boolean; + FMessage_: string; + FMessage__Specified: boolean; + FInternalMessage: string; + FInternalMessage_Specified: boolean; + FData: string; + FData_Specified: boolean; + procedure SetIsOK(Index: Integer; const ABoolean: Boolean); + function IsOK_Specified(Index: Integer): boolean; + procedure SetMessage_(Index: Integer; const Astring: string); + function Message__Specified(Index: Integer): boolean; + procedure SetInternalMessage(Index: Integer; const Astring: string); + function InternalMessage_Specified(Index: Integer): boolean; + procedure SetData(Index: Integer; const Astring: string); + function Data_Specified(Index: Integer): boolean; + published + property IsOK: Boolean Index (IS_OPTN) read FIsOK write SetIsOK stored IsOK_Specified; + property Message_: string Index (IS_OPTN) read FMessage_ write SetMessage_ stored Message__Specified; + property InternalMessage: string Index (IS_OPTN) read FInternalMessage write SetInternalMessage stored InternalMessage_Specified; + property Data: string Index (IS_OPTN) read FData write SetData stored Data_Specified; + end; + + + + // ************************************************************************ // + // XML : pxLogIn, global, + // Namespace : http://vhintra.vanhoecke.be + // ************************************************************************ // + pxLogIn = class(TRemotable) + private + FSessionKey: string; + FSessionKey_Specified: boolean; + FToegangID: string; + FToegangID_Specified: boolean; + FGebruikersNaam: string; + FGebruikersNaam_Specified: boolean; + FSettings: string; + FSettings_Specified: boolean; + FInDevelop: Boolean; + FInDevelop_Specified: boolean; + FServerName: string; + FServerName_Specified: boolean; + procedure SetSessionKey(Index: Integer; const Astring: string); + function SessionKey_Specified(Index: Integer): boolean; + procedure SetToegangID(Index: Integer; const Astring: string); + function ToegangID_Specified(Index: Integer): boolean; + procedure SetGebruikersNaam(Index: Integer; const Astring: string); + function GebruikersNaam_Specified(Index: Integer): boolean; + procedure SetSettings(Index: Integer; const Astring: string); + function Settings_Specified(Index: Integer): boolean; + procedure SetInDevelop(Index: Integer; const ABoolean: Boolean); + function InDevelop_Specified(Index: Integer): boolean; + procedure SetServerName(Index: Integer; const Astring: string); + function ServerName_Specified(Index: Integer): boolean; + published + property SessionKey: string Index (IS_OPTN) read FSessionKey write SetSessionKey stored SessionKey_Specified; + property ToegangID: string Index (IS_OPTN) read FToegangID write SetToegangID stored ToegangID_Specified; + property GebruikersNaam: string Index (IS_OPTN) read FGebruikersNaam write SetGebruikersNaam stored GebruikersNaam_Specified; + property Settings: string Index (IS_OPTN) read FSettings write SetSettings stored Settings_Specified; + property InDevelop: Boolean Index (IS_OPTN) read FInDevelop write SetInDevelop stored InDevelop_Specified; + property ServerName: string Index (IS_OPTN) read FServerName write SetServerName stored ServerName_Specified; + end; + + + // ************************************************************************ // + // Namespace : http://vhintra.vanhoecke.be + // soapAction: http://vhintra.vanhoecke.be/WS.Sys.Toegang.UserServer.%operationName% + // transport : http://schemas.xmlsoap.org/soap/http + // style : document + // use : literal + // binding : UserServerSoap + // service : UserServer + // port : UserServerSoap + // URL : http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.cls + // ************************************************************************ // + UserServerSoap = interface(IInvokable) + ['{161BA6C5-717D-1FD5-0A06-6B43E6A58125}'] + function LogIn(const Application_: string; const GebruikersNaam: string; const WachtWoord: string; const Domein: string; var pxLogIn: pxLogIn): pxStatus; stdcall; + function LogOut(const SessionKey: string): pxStatus; stdcall; + end; + +function GetUserServerSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): UserServerSoap; + + +implementation + uses SysUtils; + +function GetUserServerSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): UserServerSoap; +const + defWSDL = 'http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.CLS?WSDL=1'; + defURL = 'http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.cls'; + defSvc = 'UserServer'; + defPrt = 'UserServerSoap'; +var + RIO: THTTPRIO; +begin + Result := nil; + if (Addr = '') then + begin + if UseWSDL then + Addr := defWSDL + else + Addr := defURL; + end; + if HTTPRIO = nil then + RIO := THTTPRIO.Create(nil) + else + RIO := HTTPRIO; + try + Result := (RIO as UserServerSoap); + if UseWSDL then + begin + RIO.WSDLLocation := Addr; + RIO.Service := defSvc; + RIO.Port := defPrt; + end else + RIO.URL := Addr; + finally + if (Result = nil) and (HTTPRIO = nil) then + RIO.Free; + end; +end; + + +procedure pxStatus.SetIsOK(Index: Integer; const ABoolean: Boolean); +begin + FIsOK := ABoolean; + FIsOK_Specified := True; +end; + +function pxStatus.IsOK_Specified(Index: Integer): boolean; +begin + Result := FIsOK_Specified; +end; + +procedure pxStatus.SetMessage_(Index: Integer; const Astring: string); +begin + FMessage_ := Astring; + FMessage__Specified := True; +end; + +function pxStatus.Message__Specified(Index: Integer): boolean; +begin + Result := FMessage__Specified; +end; + +procedure pxStatus.SetInternalMessage(Index: Integer; const Astring: string); +begin + FInternalMessage := Astring; + FInternalMessage_Specified := True; +end; + +function pxStatus.InternalMessage_Specified(Index: Integer): boolean; +begin + Result := FInternalMessage_Specified; +end; + +procedure pxStatus.SetData(Index: Integer; const Astring: string); +begin + FData := Astring; + FData_Specified := True; +end; + +function pxStatus.Data_Specified(Index: Integer): boolean; +begin + Result := FData_Specified; +end; + +procedure pxLogIn.SetSessionKey(Index: Integer; const Astring: string); +begin + FSessionKey := Astring; + FSessionKey_Specified := True; +end; + +function pxLogIn.SessionKey_Specified(Index: Integer): boolean; +begin + Result := FSessionKey_Specified; +end; + +procedure pxLogIn.SetToegangID(Index: Integer; const Astring: string); +begin + FToegangID := Astring; + FToegangID_Specified := True; +end; + +function pxLogIn.ToegangID_Specified(Index: Integer): boolean; +begin + Result := FToegangID_Specified; +end; + +procedure pxLogIn.SetGebruikersNaam(Index: Integer; const Astring: string); +begin + FGebruikersNaam := Astring; + FGebruikersNaam_Specified := True; +end; + +function pxLogIn.GebruikersNaam_Specified(Index: Integer): boolean; +begin + Result := FGebruikersNaam_Specified; +end; + +procedure pxLogIn.SetSettings(Index: Integer; const Astring: string); +begin + FSettings := Astring; + FSettings_Specified := True; +end; + +function pxLogIn.Settings_Specified(Index: Integer): boolean; +begin + Result := FSettings_Specified; +end; + +procedure pxLogIn.SetInDevelop(Index: Integer; const ABoolean: Boolean); +begin + FInDevelop := ABoolean; + FInDevelop_Specified := True; +end; + +function pxLogIn.InDevelop_Specified(Index: Integer): boolean; +begin + Result := FInDevelop_Specified; +end; + +procedure pxLogIn.SetServerName(Index: Integer; const Astring: string); +begin + FServerName := Astring; + FServerName_Specified := True; +end; + +function pxLogIn.ServerName_Specified(Index: Integer): boolean; +begin + Result := FServerName_Specified; +end; + +initialization + { UserServerSoap } + InvRegistry.RegisterInterface(TypeInfo(UserServerSoap), 'http://vhintra.vanhoecke.be', 'UTF-8'); + InvRegistry.RegisterDefaultSOAPAction(TypeInfo(UserServerSoap), 'http://vhintra.vanhoecke.be/WS.Sys.Toegang.UserServer.%operationName%'); + InvRegistry.RegisterInvokeOptions(TypeInfo(UserServerSoap), ioDocument); + { UserServerSoap.LogIn } + InvRegistry.RegisterMethodInfo(TypeInfo(UserServerSoap), 'LogIn', '', + '[ReturnName="LogInResult"]'); + InvRegistry.RegisterParamInfo(TypeInfo(UserServerSoap), 'LogIn', 'Application_', 'Application', ''); + { UserServerSoap.LogOut } + InvRegistry.RegisterMethodInfo(TypeInfo(UserServerSoap), 'LogOut', '', + '[ReturnName="LogOutResult"]'); + RemClassRegistry.RegisterXSClass(pxStatus, 'http://vhintra.vanhoecke.be', 'pxStatus'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(pxStatus), 'Message_', '[ExtName="Message"]'); + RemClassRegistry.RegisterXSClass(pxLogIn, 'http://vhintra.vanhoecke.be', 'pxLogIn'); + +end. Index: VerpakkingsDefinitie/Win32/Debug/Unit1.dcu =================================================================== diff -u Binary files differ Index: VerpakkingsDefinitie/Agent.pas =================================================================== diff -u --- VerpakkingsDefinitie/Agent.pas (revision 0) +++ VerpakkingsDefinitie/Agent.pas (revision 533) @@ -0,0 +1,29 @@ +unit Agent; + +interface +uses UserServerService; +type +TAgent = class + private + fServer: String; + fUserServerSoap = UserServerSoap; + fSessionKey: String; + function ComputerName: String; + function WUserName: String; + + public + Constructor Create(); overload; +end; +implementation + +constructor TAgent.Create(); +var + fNamespace: string; +begin + fServer := 'cachedevut2010'; + fNameSpace := 'dev1'; + if fServer = 'cache01' then + fNameSpace := 'admin1'; + fUserServerSoap := UserServerService.GetUserServerSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.GebruikerService.cls',nil); + end; +end. Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dpr =================================================================== diff -u --- VerpakkingsDefinitie/VerpakkingsDefinitie.dpr (revision 0) +++ VerpakkingsDefinitie/VerpakkingsDefinitie.dpr (revision 533) @@ -0,0 +1,18 @@ +program VerpakkingsDefinitie; + +uses + Vcl.Forms, + Unit1 in 'Unit1.pas' {Form1}, + GebruikerService in 'GebruikerService.pas', + LogInScherm in 'LogInScherm.pas' {fmLogin}, + UserServerService in 'UserServerService.pas', + Agent in 'Agent.pas'; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(TfmLogin, fmLogin); + Application.Run; +end. Index: VerpakkingsDefinitie/Unit1.dfm =================================================================== diff -u --- VerpakkingsDefinitie/Unit1.dfm (revision 0) +++ VerpakkingsDefinitie/Unit1.dfm (revision 533) @@ -0,0 +1,62 @@ +object Form1: TForm1 + Left = 0 + Top = 0 + Caption = 'Form1' + ClientHeight = 276 + ClientWidth = 591 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object LabelNummer1: TLabel + Left = 88 + Top = 48 + Width = 69 + Height = 13 + Align = alCustom + Caption = 'Dit is een label' + end + object Splitter1: TSplitter + Left = 0 + Top = 0 + Width = 1 + Height = 276 + ExplicitLeft = 3 + ExplicitHeight = 299 + end + object ButtonNummer1: TButton + Left = 200 + Top = 136 + Width = 163 + Height = 25 + Caption = 'Dit is een button' + TabOrder = 0 + OnClick = ButtonNummer1Click + end + object Edit1: TEdit + Left = 216 + Top = 87 + Width = 121 + Height = 21 + TabOrder = 1 + Text = 'Edit1' + end + object Panel1: TPanel + Left = 406 + Top = 0 + Width = 185 + Height = 276 + Align = alRight + BevelOuter = bvNone + Caption = 'Panel1' + TabOrder = 2 + ExplicitLeft = 432 + ExplicitTop = 67 + ExplicitHeight = 41 + end +end Index: VerpakkingsDefinitie/VerpakkingsDefinitie.identcache =================================================================== diff -u Binary files differ Index: VerpakkingsDefinitie/Win32/Debug/GebruikerService.dcu =================================================================== diff -u Binary files differ Index: VerpakkingsDefinitie/LogInScherm.pas =================================================================== diff -u --- VerpakkingsDefinitie/LogInScherm.pas (revision 0) +++ VerpakkingsDefinitie/LogInScherm.pas (revision 533) @@ -0,0 +1,32 @@ +unit LogInScherm; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; + +type + TfmLogin = class(TForm) + Label1: TLabel; + Label2: TLabel; + edtGebruikersnaam: TEdit; + Label3: TLabel; + edtWachtwoord: TEdit; + Panel1: TPanel; + private + { Private declarations } + public + { Public declarations } + end; + +var + fmLogin: TfmLogin; + +implementation + uses + GebruikerService; + +{$R *.dfm} + +end. Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dproj.local =================================================================== diff -u --- VerpakkingsDefinitie/VerpakkingsDefinitie.dproj.local (revision 0) +++ VerpakkingsDefinitie/VerpakkingsDefinitie.dproj.local (revision 533) @@ -0,0 +1,21 @@ + + + + 2021/02/16 13:58:21.000.802,=C:\Users\samvh\Documents\RAD Studio\Projects\Unit1.pas + 2021/02/16 14:30:23.000.952,=C:\Users\samvh\Documents\RAD Studio\Projects\WS.pas + 2021/02/16 14:30:56.000.834,C:\Users\samvh\Documents\RAD Studio\Projects\GebruikerServiceTest.pas=C:\Users\samvh\Documents\RAD Studio\Projects\WS.pas + 2021/02/25 08:36:07.000.114,C:\Users\samvh\Documents\RAD Studio\Projects\Project1.dproj=C:\Users\samvh\Documents\RAD Studio\Projects\Project1.dproj + 2021/04/14 14:26:20.000.846,=C:\Users\samvh\Documents\RAD Studio\Projects\Unit2.pas + 2021/04/14 14:26:28.000.831,C:\Users\samvh\Documents\RAD Studio\Projects\Unit2.pas=C:\Users\samvh\Documents\RAD Studio\Projects\LogIn.pas + 2021/04/14 14:26:28.000.831,C:\Users\samvh\Documents\RAD Studio\Projects\Unit2.dfm=C:\Users\samvh\Documents\RAD Studio\Projects\LogIn.dfm + 2021/04/14 15:40:11.000.961,C:\Users\samvh\Documents\RAD Studio\Projects\LogInScherm.pas=C:\Users\samvh\Documents\RAD Studio\Projects\LogIn.pas + 2021/04/14 15:40:11.000.961,C:\Users\samvh\Documents\RAD Studio\Projects\LogInScherm.dfm=C:\Users\samvh\Documents\RAD Studio\Projects\LogIn.dfm + 2021/04/14 16:29:13.000.801,C:\Users\samvh\Documents\RAD Studio\Projects\GebruikerServiceTest.pas=C:\Users\samvh\Documents\RAD Studio\Projects\GebruikerService.pas + 2021/04/16 10:13:57.000.921,=C:\Users\samvh\Documents\RAD Studio\Projects\WS.pas + 2021/04/16 10:15:25.000.972,C:\Users\samvh\Documents\RAD Studio\Projects\WS.pas=C:\Users\samvh\Documents\RAD Studio\Projects\LogInService.pas + 2021/04/16 10:43:50.000.376,=C:\Users\samvh\Documents\RAD Studio\Projects\Unit2.pas + 2021/04/16 10:44:01.000.013,C:\Users\samvh\Documents\RAD Studio\Projects\Unit2.pas=C:\Users\samvh\Documents\RAD Studio\Projects\Agent.pas + 2021/04/16 10:54:43.000.225,C:\Users\samvh\Documents\RAD Studio\Projects\LogInService.pas=C:\Users\samvh\Documents\RAD Studio\Projects\UserServerService.pas + 2021/04/16 11:08:12.000.814,C:\Users\samvh\Documents\RAD Studio\Projects\Project1.dproj=C:\Users\samvh\Documents\RAD Studio\Projects\VerpakkingsDefinitie.dproj + + Index: VerpakkingsDefinitie/ProjectGroup1.groupproj.local =================================================================== diff -u --- VerpakkingsDefinitie/ProjectGroup1.groupproj.local (revision 0) +++ VerpakkingsDefinitie/ProjectGroup1.groupproj.local (revision 533) @@ -0,0 +1,7 @@ + + + + + + + Index: VerpakkingsDefinitie/ProjectGroup1.groupproj =================================================================== diff -u --- VerpakkingsDefinitie/ProjectGroup1.groupproj (revision 0) +++ VerpakkingsDefinitie/ProjectGroup1.groupproj (revision 533) @@ -0,0 +1,48 @@ + + + {95081A26-50E2-4B04-82AB-14B6DBD75E64} + + + + + + + + + + + Default.Personality.12 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: VerpakkingsDefinitie/Win32/Debug/GebruikerServiceTest.dcu =================================================================== diff -u Binary files differ Index: VerpakkingsDefinitie/Project1.dproj =================================================================== diff -u --- VerpakkingsDefinitie/Project1.dproj (revision 0) +++ VerpakkingsDefinitie/Project1.dproj (revision 533) @@ -0,0 +1,152 @@ + + + {C06E881B-CF25-4110-B54A-F6E25479638C} + 13.4 + VCL + Project1.dpr + True + Debug + Win32 + 1 + Application + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + bindcompfmx;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;bindcomp;inetdb;DBXInterBaseDriver;xmlrtl;ibxpress;DbxCommonDriver;IndyProtocols;DBXMySQLDriver;dbxcds;FMXTee;bindengine;soaprtl;CustomIPTransport;dsnap;fmxase;IndyCore;CloudService;FmxTeeUI;inet;fmxobj;inetdbxpress;fmxdae;IPIndyImpl;dbexpress;$(DCC_UsePackage) + $(BDS)\bin\delphi_PROJECTICON.ico + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + + + TeeDB;vclib;Tee;vclimg;TeeUI;vclactnband;vcldb;vcldsnap;bindcompvcl;vclie;vcltouch;websnap;vclribbon;VclSmp;vcl;dsnapcon;vclx;webdsnap;adortl;$(DCC_UsePackage) + + + vcldbx;frx16;TeeDB;Rave100VCL;vclib;Tee;inetdbbde;svnui;vclimg;fmi;intrawebdb_120_160;frxDB16;fs16;TeeUI;vclactnband;vcldb;vcldsnap;bindcompvcl;vclie;vcltouch;Intraweb_120_160;websnap;vclribbon;VclSmp;frxe16;fsDB16;vcl;dsnapcon;vclx;webdsnap;svn;bdertl;adortl;$(DCC_UsePackage) + true + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + 1033 + $(BDS)\bin\default_app.manifest + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + + + DEBUG;$(DCC_Define) + false + true + true + true + + + false + + + false + RELEASE;$(DCC_Define) + 0 + false + + + + MainSource + + +
Form1
+ dfm + + + +
fmLogin
+ dfm + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + + + + + False + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 2067 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + Project1.dpr + + + + + False + True + + + 12 + + + + Index: VerpakkingsDefinitie/GebruikerService.pas =================================================================== diff -u --- VerpakkingsDefinitie/GebruikerService.pas (revision 0) +++ VerpakkingsDefinitie/GebruikerService.pas (revision 533) @@ -0,0 +1,471 @@ +// ************************************************************************ // +// The types declared in this file were generated from data read from the +// WSDL File described below: +// WSDL : http://localhost:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1 +// >Import : http://localhost:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1>0 +// Encoding : UTF-8 +// Version : 1.0 +// (16/02/2021 14:30:23 - - $Rev: 45757 $) +// ************************************************************************ // + +unit GebruikerService; + +interface + +uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; + +const + IS_OPTN = $0001; + IS_UNBD = $0002; + IS_NLBL = $0004; + IS_REF = $0080; + + +type + + // ************************************************************************ // + // The following types, referred to in the WSDL document are not being represented + // in this file. They are either aliases[@] of other types represented or were referred + // to but never[!] declared in the document. The types from the latter category + // typically map to predefined/known XML or Embarcadero types; however, they could also + // indicate incorrect WSDL documents that failed to declare or import a schema type. + // ************************************************************************ // + // !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl] + // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] + + GebruikerAanmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + ZoekAangemeldeGebruikersRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + GebruikerAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + GebruikerAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + GebruikerAanmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + ZoekAangemeldeGebruikersResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + Gebruiker = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + + ArrayOfGebruikerGebruiker = array of Gebruiker; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblSmpl] } + + + // ************************************************************************ // + // XML : GebruikerAanmeldenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + GebruikerAanmeldenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FInitialen: string; + FLoginCode: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Initialen: string read FInitialen write FInitialen; + property LoginCode: string read FLoginCode write FLoginCode; + end; + + + + // ************************************************************************ // + // XML : RequestHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + RequestHeader = class(TRemotable) + private + FInitialen: String_; + FComputerNaam: String_; + published + property Initialen: String_ read FInitialen write FInitialen; + property ComputerNaam: String_ read FComputerNaam write FComputerNaam; + end; + + + + // ************************************************************************ // + // XML : ZoekAangemeldeGebruikersRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + ZoekAangemeldeGebruikersRequest = class(TRemotable) + private + FHeader: RequestHeader; + FLoginCode: string; + FInitialen: string; + FInitialen_Specified: boolean; + FComputernaam: string; + procedure SetInitialen(Index: Integer; const Astring: string); + function Initialen_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property LoginCode: string read FLoginCode write FLoginCode; + property Initialen: string Index (IS_OPTN) read FInitialen write SetInitialen stored Initialen_Specified; + property Computernaam: string read FComputernaam write FComputernaam; + end; + + + + // ************************************************************************ // + // XML : GebruikerAfmeldenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + GebruikerAfmeldenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FLoginCode: string; + FInitialen: string; + FInitialen_Specified: boolean; + FComputernaam: string; + procedure SetInitialen(Index: Integer; const Astring: string); + function Initialen_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property LoginCode: string read FLoginCode write FLoginCode; + property Initialen: string Index (IS_OPTN) read FInitialen write SetInitialen stored Initialen_Specified; + property Computernaam: string read FComputernaam write FComputernaam; + end; + + + + // ************************************************************************ // + // XML : DataTransferObject, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + DataTransferObject = class(TRemotable) + private + published + end; + + + + // ************************************************************************ // + // XML : GebruikerAfmeldenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + GebruikerAfmeldenResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; + public + destructor Destroy; override; + published + property Header: ResponseHeader read FHeader write FHeader; + end; + + + + // ************************************************************************ // + // XML : GebruikerAanmeldenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + GebruikerAanmeldenResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; + public + destructor Destroy; override; + published + property Header: ResponseHeader read FHeader write FHeader; + end; + + + + // ************************************************************************ // + // XML : ZoekAangemeldeGebruikersResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + ZoekAangemeldeGebruikersResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; + FGebruikers: ArrayOfGebruikerGebruiker; + FGebruikers_Specified: boolean; + procedure SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker); + function Gebruikers_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property Header: ResponseHeader read FHeader write FHeader; + property Gebruikers: ArrayOfGebruikerGebruiker Index (IS_OPTN or IS_UNBD or IS_NLBL) read FGebruikers write SetGebruikers stored Gebruikers_Specified; + end; + + + + // ************************************************************************ // + // XML : Gebruiker, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + Gebruiker = class(DataTransferObject) + private + FLoginCode: string; + FLoginCode_Specified: boolean; + FInitialen: string; + FInitialen_Specified: boolean; + FComputerNaam: string; + FComputerNaam_Specified: boolean; + FAangemeldSinds: TXSDateTime; + FAangemeldSinds_Specified: boolean; + FLaatsteActiviteit: TXSDateTime; + FLaatsteActiviteit_Specified: boolean; + procedure SetLoginCode(Index: Integer; const Astring: string); + function LoginCode_Specified(Index: Integer): boolean; + procedure SetInitialen(Index: Integer; const Astring: string); + function Initialen_Specified(Index: Integer): boolean; + procedure SetComputerNaam(Index: Integer; const Astring: string); + function ComputerNaam_Specified(Index: Integer): boolean; + procedure SetAangemeldSinds(Index: Integer; const ATXSDateTime: TXSDateTime); + function AangemeldSinds_Specified(Index: Integer): boolean; + procedure SetLaatsteActiviteit(Index: Integer; const ATXSDateTime: TXSDateTime); + function LaatsteActiviteit_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property LoginCode: string Index (IS_OPTN) read FLoginCode write SetLoginCode stored LoginCode_Specified; + property Initialen: string Index (IS_OPTN) read FInitialen write SetInitialen stored Initialen_Specified; + property ComputerNaam: string Index (IS_OPTN) read FComputerNaam write SetComputerNaam stored ComputerNaam_Specified; + property AangemeldSinds: TXSDateTime Index (IS_OPTN) read FAangemeldSinds write SetAangemeldSinds stored AangemeldSinds_Specified; + property LaatsteActiviteit: TXSDateTime Index (IS_OPTN) read FLaatsteActiviteit write SetLaatsteActiviteit stored LaatsteActiviteit_Specified; + end; + + + + // ************************************************************************ // + // XML : ResponseHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + ResponseHeader = class(TRemotable) + private + FStatus: String_; + FOmschrijving: String_; + published + property Status: String_ read FStatus write FStatus; + property Omschrijving: String_ read FOmschrijving write FOmschrijving; + end; + + + // ************************************************************************ // + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // soapAction: http://www.vanhoecke.be/Halux/AAP/Gebruiker/WS.Halux.AAP.GebruikerService.%operationName% + // transport : http://schemas.xmlsoap.org/soap/http + // style : document + // use : literal + // binding : GebruikerServiceSoap + // service : GebruikerService + // port : GebruikerServiceSoap + // URL : http://localhost:57772/csp/dev1/WS.Halux.AAP.GebruikerService.cls + // ************************************************************************ // + GebruikerServiceSoap = interface(IInvokable) + ['{B88E6F54-A0CE-0BA2-3E36-0D17B4BAA312}'] + function GebruikerAanmelden(const GebruikerAanmeldenRequest: GebruikerAanmeldenRequest): GebruikerAanmeldenResponse; stdcall; + function GebruikerAfmelden(const GebruikerAfmeldenRequest: GebruikerAfmeldenRequest): GebruikerAfmeldenResponse; stdcall; + function ZoekAangemeldeGebruikers(const ZoekAangemeldeGebruikersRequest: ZoekAangemeldeGebruikersRequest): ZoekAangemeldeGebruikersResponse; stdcall; + end; + +function GetGebruikerServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): GebruikerServiceSoap; + + +implementation + uses SysUtils; + +function GetGebruikerServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): GebruikerServiceSoap; +const + defWSDL = 'http://localhost:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1'; + defURL = 'http://localhost:57772/csp/dev1/WS.Halux.AAP.GebruikerService.cls'; + defSvc = 'GebruikerService'; + defPrt = 'GebruikerServiceSoap'; +var + RIO: THTTPRIO; +begin + Result := nil; + if (Addr = '') then + begin + if UseWSDL then + Addr := defWSDL + else + Addr := defURL; + end; + if HTTPRIO = nil then + RIO := THTTPRIO.Create(nil) + else + RIO := HTTPRIO; + try + Result := (RIO as GebruikerServiceSoap); + if UseWSDL then + begin + RIO.WSDLLocation := Addr; + RIO.Service := defSvc; + RIO.Port := defPrt; + end else + RIO.URL := Addr; + finally + if (Result = nil) and (HTTPRIO = nil) then + RIO.Free; + end; +end; + + +destructor GebruikerAanmeldenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekAangemeldeGebruikersRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure ZoekAangemeldeGebruikersRequest.SetInitialen(Index: Integer; const Astring: string); +begin + FInitialen := Astring; + FInitialen_Specified := True; +end; + +function ZoekAangemeldeGebruikersRequest.Initialen_Specified(Index: Integer): boolean; +begin + Result := FInitialen_Specified; +end; + +destructor GebruikerAfmeldenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure GebruikerAfmeldenRequest.SetInitialen(Index: Integer; const Astring: string); +begin + FInitialen := Astring; + FInitialen_Specified := True; +end; + +function GebruikerAfmeldenRequest.Initialen_Specified(Index: Integer): boolean; +begin + Result := FInitialen_Specified; +end; + +destructor GebruikerAfmeldenResponse.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor GebruikerAanmeldenResponse.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekAangemeldeGebruikersResponse.Destroy; +var + I: Integer; +begin + for I := 0 to System.Length(FGebruikers)-1 do + SysUtils.FreeAndNil(FGebruikers[I]); + System.SetLength(FGebruikers, 0); + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure ZoekAangemeldeGebruikersResponse.SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker); +begin + FGebruikers := AArrayOfGebruikerGebruiker; + FGebruikers_Specified := True; +end; + +function ZoekAangemeldeGebruikersResponse.Gebruikers_Specified(Index: Integer): boolean; +begin + Result := FGebruikers_Specified; +end; + +destructor Gebruiker.Destroy; +begin + SysUtils.FreeAndNil(FAangemeldSinds); + SysUtils.FreeAndNil(FLaatsteActiviteit); + inherited Destroy; +end; + +procedure Gebruiker.SetLoginCode(Index: Integer; const Astring: string); +begin + FLoginCode := Astring; + FLoginCode_Specified := True; +end; + +function Gebruiker.LoginCode_Specified(Index: Integer): boolean; +begin + Result := FLoginCode_Specified; +end; + +procedure Gebruiker.SetInitialen(Index: Integer; const Astring: string); +begin + FInitialen := Astring; + FInitialen_Specified := True; +end; + +function Gebruiker.Initialen_Specified(Index: Integer): boolean; +begin + Result := FInitialen_Specified; +end; + +procedure Gebruiker.SetComputerNaam(Index: Integer; const Astring: string); +begin + FComputerNaam := Astring; + FComputerNaam_Specified := True; +end; + +function Gebruiker.ComputerNaam_Specified(Index: Integer): boolean; +begin + Result := FComputerNaam_Specified; +end; + +procedure Gebruiker.SetAangemeldSinds(Index: Integer; const ATXSDateTime: TXSDateTime); +begin + FAangemeldSinds := ATXSDateTime; + FAangemeldSinds_Specified := True; +end; + +function Gebruiker.AangemeldSinds_Specified(Index: Integer): boolean; +begin + Result := FAangemeldSinds_Specified; +end; + +procedure Gebruiker.SetLaatsteActiviteit(Index: Integer; const ATXSDateTime: TXSDateTime); +begin + FLaatsteActiviteit := ATXSDateTime; + FLaatsteActiviteit_Specified := True; +end; + +function Gebruiker.LaatsteActiviteit_Specified(Index: Integer): boolean; +begin + Result := FLaatsteActiviteit_Specified; +end; + +initialization + { GebruikerServiceSoap } + InvRegistry.RegisterInterface(TypeInfo(GebruikerServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'UTF-8'); + InvRegistry.RegisterDefaultSOAPAction(TypeInfo(GebruikerServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker/WS.Halux.AAP.GebruikerService.%operationName%'); + InvRegistry.RegisterInvokeOptions(TypeInfo(GebruikerServiceSoap), ioDocument); + { GebruikerServiceSoap.GebruikerAanmelden } + InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'GebruikerAanmelden', '', + '[ReturnName="GebruikerAanmeldenResult"]'); + { GebruikerServiceSoap.GebruikerAfmelden } + InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'GebruikerAfmelden', '', + '[ReturnName="GebruikerAfmeldenResult"]'); + { GebruikerServiceSoap.ZoekAangemeldeGebruikers } + InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'ZoekAangemeldeGebruikers', '', + '[ReturnName="ZoekAangemeldeGebruikersResult"]'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfGebruikerGebruiker), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ArrayOfGebruikerGebruiker'); + RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'String_', 'String'); + RemClassRegistry.RegisterXSClass(GebruikerAanmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenRequest'); + RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'RequestHeader'); + RemClassRegistry.RegisterXSClass(ZoekAangemeldeGebruikersRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekAangemeldeGebruikersRequest'); + RemClassRegistry.RegisterXSClass(GebruikerAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenRequest'); + RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'DataTransferObject'); + RemClassRegistry.RegisterXSClass(GebruikerAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenResponse'); + RemClassRegistry.RegisterXSClass(GebruikerAanmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenResponse'); + RemClassRegistry.RegisterXSClass(ZoekAangemeldeGebruikersResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekAangemeldeGebruikersResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAangemeldeGebruikersResponse), 'Gebruikers', '[ArrayItemName="Gebruiker"]'); + RemClassRegistry.RegisterXSClass(Gebruiker, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'Gebruiker'); + RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ResponseHeader'); + +end. \ No newline at end of file Index: VerpakkingsDefinitie/LogInScherm.dfm =================================================================== diff -u --- VerpakkingsDefinitie/LogInScherm.dfm (revision 0) +++ VerpakkingsDefinitie/LogInScherm.dfm (revision 533) @@ -0,0 +1,89 @@ +object fmLogin: TfmLogin + Left = 0 + Top = 0 + BorderStyle = bsSingle + Caption = 'Log In' + ClientHeight = 443 + ClientWidth = 972 + Color = 1513421 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 384 + Top = 104 + Width = 162 + Height = 52 + Caption = 'vHintra' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -43 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 408 + Top = 162 + Width = 116 + Height = 16 + Caption = 'GEBRUIKERSNAAM' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -13 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 416 + Top = 211 + Width = 96 + Height = 16 + Caption = 'WACHTWOORD' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -13 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object edtGebruikersnaam: TEdit + Left = 384 + Top = 184 + Width = 161 + Height = 21 + TabOrder = 0 + end + object edtWachtwoord: TEdit + Left = 384 + Top = 233 + Width = 161 + Height = 21 + TabOrder = 1 + end + object Panel1: TPanel + Left = 418 + Top = 268 + Width = 94 + Height = 25 + BevelEdges = [] + BevelOuter = bvSpace + BiDiMode = bdLeftToRight + Caption = 'LOG IN' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentBiDiMode = False + ParentFont = False + TabOrder = 2 + end +end Index: VerpakkingsDefinitie/Win32/Debug/Project1.exe =================================================================== diff -u Binary files differ Index: VerpakkingsDefinitie/Project1.dpr =================================================================== diff -u --- VerpakkingsDefinitie/Project1.dpr (revision 0) +++ VerpakkingsDefinitie/Project1.dpr (revision 533) @@ -0,0 +1,16 @@ +program Project1; + +uses + Vcl.Forms, + Unit1 in 'Unit1.pas' {Form1}, + GebruikerService in 'GebruikerService.pas', + LogInScherm in 'LogInScherm.pas' {fmLogin}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(TfmLogin, fmLogin); + Application.Run; +end. Index: VerpakkingsDefinitie/Project1.identcache =================================================================== diff -u Binary files differ Index: VerpakkingsDefinitie/Project1.dproj.local =================================================================== diff -u --- VerpakkingsDefinitie/Project1.dproj.local (revision 0) +++ VerpakkingsDefinitie/Project1.dproj.local (revision 533) @@ -0,0 +1,15 @@ + + + + 2021/02/16 13:58:21.000.802,=C:\Users\samvh\Documents\RAD Studio\Projects\Unit1.pas + 2021/02/16 14:30:23.000.952,=C:\Users\samvh\Documents\RAD Studio\Projects\WS.pas + 2021/02/16 14:30:56.000.834,C:\Users\samvh\Documents\RAD Studio\Projects\WS.pas=C:\Users\samvh\Documents\RAD Studio\Projects\GebruikerServiceTest.pas + 2021/02/25 08:36:07.000.114,C:\Users\samvh\Documents\RAD Studio\Projects\Project1.dproj=C:\Users\samvh\Documents\RAD Studio\Projects\Project1.dproj + 2021/04/14 14:26:20.000.846,=C:\Users\samvh\Documents\RAD Studio\Projects\Unit2.pas + 2021/04/14 14:26:28.000.831,C:\Users\samvh\Documents\RAD Studio\Projects\LogIn.pas=C:\Users\samvh\Documents\RAD Studio\Projects\Unit2.pas + 2021/04/14 14:26:28.000.831,C:\Users\samvh\Documents\RAD Studio\Projects\LogIn.dfm=C:\Users\samvh\Documents\RAD Studio\Projects\Unit2.dfm + 2021/04/14 15:40:11.000.961,C:\Users\samvh\Documents\RAD Studio\Projects\LogIn.pas=C:\Users\samvh\Documents\RAD Studio\Projects\LogInScherm.pas + 2021/04/14 15:40:11.000.961,C:\Users\samvh\Documents\RAD Studio\Projects\LogIn.dfm=C:\Users\samvh\Documents\RAD Studio\Projects\LogInScherm.dfm + 2021/04/14 16:29:13.801,C:\Users\samvh\Documents\RAD Studio\Projects\GebruikerService.pas=C:\Users\samvh\Documents\RAD Studio\Projects\GebruikerServiceTest.pas + + Index: VerpakkingsDefinitie/Unit1.pas =================================================================== diff -u --- VerpakkingsDefinitie/Unit1.pas (revision 0) +++ VerpakkingsDefinitie/Unit1.pas (revision 533) @@ -0,0 +1,35 @@ +unit Unit1; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; + +type + TForm1 = class(TForm) + LabelNummer1: TLabel; + ButtonNummer1: TButton; + Edit1: TEdit; + Splitter1: TSplitter; + Panel1: TPanel; + procedure ButtonNummer1Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.dfm} + +procedure TForm1.ButtonNummer1Click(Sender: TObject); +begin + LabelNummer1.Caption := Edit1.Text; +end; + +end. Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dproj =================================================================== diff -u --- VerpakkingsDefinitie/VerpakkingsDefinitie.dproj (revision 0) +++ VerpakkingsDefinitie/VerpakkingsDefinitie.dproj (revision 533) @@ -0,0 +1,154 @@ + + + {C06E881B-CF25-4110-B54A-F6E25479638C} + 13.4 + VCL + VerpakkingsDefinitie.dpr + True + Debug + Win32 + 1 + Application + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + bindcompfmx;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;bindcomp;inetdb;DBXInterBaseDriver;xmlrtl;ibxpress;DbxCommonDriver;IndyProtocols;DBXMySQLDriver;dbxcds;FMXTee;bindengine;soaprtl;CustomIPTransport;dsnap;fmxase;IndyCore;CloudService;FmxTeeUI;inet;fmxobj;inetdbxpress;fmxdae;IPIndyImpl;dbexpress;$(DCC_UsePackage) + $(BDS)\bin\delphi_PROJECTICON.ico + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + + + TeeDB;vclib;Tee;vclimg;TeeUI;vclactnband;vcldb;vcldsnap;bindcompvcl;vclie;vcltouch;websnap;vclribbon;VclSmp;vcl;dsnapcon;vclx;webdsnap;adortl;$(DCC_UsePackage) + + + vcldbx;frx16;TeeDB;Rave100VCL;vclib;Tee;inetdbbde;svnui;vclimg;fmi;intrawebdb_120_160;frxDB16;fs16;TeeUI;vclactnband;vcldb;vcldsnap;bindcompvcl;vclie;vcltouch;Intraweb_120_160;websnap;vclribbon;VclSmp;frxe16;fsDB16;vcl;dsnapcon;vclx;webdsnap;svn;bdertl;adortl;$(DCC_UsePackage) + true + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + 1033 + $(BDS)\bin\default_app.manifest + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + + + DEBUG;$(DCC_Define) + false + true + true + true + + + false + + + false + RELEASE;$(DCC_Define) + 0 + false + + + + MainSource + + +
Form1
+ dfm + + + +
fmLogin
+ dfm + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + + + + + False + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 2067 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + VerpakkingsDefinitie.dpr + + + + + False + True + + + 12 + + + + Index: VerpakkingsDefinitie/Project1.res =================================================================== diff -u Binary files differ Index: VerpakkingsDefinitie/Win32/Debug/LogInScherm.dcu =================================================================== diff -u Binary files differ