object ServerContainer1: TServerContainer1
  OldCreateOrder = False
  Height = 271
  Width = 415
  object DSServer1: TDSServer
    Left = 96
    Top = 11
  end
  object DSTCPServerTransport1: TDSTCPServerTransport
    PoolSize = 100
    Server = DSServer1
    Filters = <>
    Left = 96
    Top = 73
  end
  object DSServerClass1: TDSServerClass
    OnGetClass = DSServerClass1GetClass
    Server = DSServer1
    Left = 200
    Top = 19
  end
end

unit ServerContainerUnit1;

interface

uses System.SysUtils, System.Classes,
  Datasnap.DSTCPServerTransport,
  Datasnap.DSServer, Datasnap.DSCommonServer,
  IPPeerServer, IPPeerAPI, Datasnap.DSAuth;

type
  TServerContainer1 = class(TDataModule)
    DSServer1: TDSServer;
    DSTCPServerTransport1: TDSTCPServerTransport;
    DSServerClass1: TDSServerClass;
    procedure DSServerClass1GetClass(DSServerClass: TDSServerClass;
      var PersistentClass: TPersistentClass);

  private
    { Private declarations }
  public
  end;

var
  ServerContainer1: TServerContainer1;

implementation


{$R *.dfm}

uses
  ServerMethodsUnit1, main;

procedure TServerContainer1.DSServerClass1GetClass(
  DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass);
begin
  PersistentClass := ServerMethodsUnit1.TServerMethods1;
end;

end.

procedure A();
begin
  try
    DM.PingCDS.Close;
    DM.PingCDS.Open;
  except
    DM.Konekcija.Close;
    DM.Konekcija.Open;
  end;
  DM.KorisnikCDS.Close;
  DM.KorisnikCDS.Params.ParamByName('aplikacija').Value := 'S';
  DM.KorisnikCDS.Open;
  while not DM.KorisnikCDS.Eof do
  begin
    i := DM.KorisnikCDS.RecNo;
    k := TKorisnik.Create;
    k.user_name := DM.KorisnikCDSUSER_NAME.AsString;
    k.pass := 'd' + inttostr(i);
    k.IDKorisnik := DM.KorisnikCDSID_KORISNIK.AsInteger;
    k.ImeIPrezime := DM.KorisnikCDSIME.AsString + ' ' + DM.KorisnikCDSPREZIME.AsString;
    k.frame := TframeKorisnik.Create(hbKorisnici);
    k.frame.Parent := hbKorisnici;
    k.frame.Korisnik := k;
    k.frame.Position.X := 10 + (i - 1) * k.frame.Width;
    k.frame.Position.Y := 0;
    k.frame.Name := 'frameKorisnik' + IntToStr(k.IDKorisnik);
    k.frame.lblUserName.Text := k.user_name;
    k.frame.Opacity := 0.7;
    ms := TMemoryStream.Create;
    (DM.KorisnikCDSSLIKA as TBlobField).SaveToStream(ms);
    ms.Position := 0;
    k.frame.imgKorisnik.Bitmap.LoadFromStream(ms);
    ms.Free;
    k.frame.OnTap := TapKorisnik;
    //k.frame.OnMouseUp := KornisnikMouseUP;
    ListaKorisnika.Add(k);
    DM.KorisnikCDS.Next;
  end;
  DM.KorisnikCDS.Close;
end;