Skip to main content
removeu 98 caracteres do conteúdo
Fonte Link
Maniero
  • 484,5mil
  • 94
  • 1,3mil
  • 2,2mil

Olá pessoal estouEstou reformulando minha pergunta referente a metodologia CallBack.

Gostaria de algum exemplo ou material especifico de como usar chamadas de CallBacks do servidor para o client.

Exemplo:

LADO CLIENT

No client tenho essa classe TCallBack

TCallback = class(TDBXCallBack)
  Function Execute(const Args: TJSONValue): TJSONValue; override;
  function GetConnectionName(OptionList: OleVariant): String;
  procedure ShowWaitScreen(const Msg: String);
  procedure ReleaseProcessScreen;
  function ShowProcessScreen(const ALinha: String; const ACaption: String;
                          APosition: Integer; ACount2: Integer;):  WordBool;
end;

com o codigo abaixo em algum lugar do client mando o CallBack para o servidor

Var
  FCallBack: TCallBack;
  ClientPx: TSMPrincipalClient;  
begin
  if (FCallBack = nil) then begin
     FCallBack := TCallBack.Create();
  end;
  try
    ClientPx := TSMPrincipalClient.Create(conDataSnap.DBXConnection, False);
    ClientPx.SetCallBack(FCallback);
  except
   on E:Exception do
    ExceptionMessage := e.Message;
  end;
end;

LADO SERVER

Apartir de agora que esta a minha duvida,o server recebeu o Callback pelo metodo setCallback

procedure TSMPrincipal.SetCallBack(CallBack: TDBXCallback);
var
  FCallBack: TDBXCallback;
begin
  FCallBack := CallBack;
  FConnection.ConnectionName := GetConnectionName;
  FConnection.Connected := True;
end;

Ai em algum ponto do server chamo o metodo no client, como fazer isso? pensei que fosse desta forma mais não da certo! Aí em algum ponto do server chamo o método no client, como fazer isso?

Result := FCallBack.GetConnectionName(Dataset.Data);

Agradeço pela atenção

Olá pessoal estou reformulando minha pergunta referente a metodologia CallBack.

Gostaria de algum exemplo ou material especifico de como usar chamadas de CallBacks do servidor para o client.

Exemplo:

LADO CLIENT

No client tenho essa classe TCallBack

TCallback = class(TDBXCallBack)
  Function Execute(const Args: TJSONValue): TJSONValue; override;
  function GetConnectionName(OptionList: OleVariant): String;
  procedure ShowWaitScreen(const Msg: String);
  procedure ReleaseProcessScreen;
  function ShowProcessScreen(const ALinha: String; const ACaption: String;
                          APosition: Integer; ACount2: Integer;):  WordBool;
end;

com o codigo abaixo em algum lugar do client mando o CallBack para o servidor

Var
  FCallBack: TCallBack;
  ClientPx: TSMPrincipalClient;  
begin
  if (FCallBack = nil) then begin
     FCallBack := TCallBack.Create();
  end;
  try
    ClientPx := TSMPrincipalClient.Create(conDataSnap.DBXConnection, False);
    ClientPx.SetCallBack(FCallback);
  except
   on E:Exception do
    ExceptionMessage := e.Message;
  end;
end;

LADO SERVER

Apartir de agora que esta a minha duvida,o server recebeu o Callback pelo metodo setCallback

procedure TSMPrincipal.SetCallBack(CallBack: TDBXCallback);
var
  FCallBack: TDBXCallback;
begin
  FCallBack := CallBack;
  FConnection.ConnectionName := GetConnectionName;
  FConnection.Connected := True;
end;

Ai em algum ponto do server chamo o metodo no client, como fazer isso? pensei que fosse desta forma mais não da certo!

Result := FCallBack.GetConnectionName(Dataset.Data);

Agradeço pela atenção

Estou reformulando minha pergunta referente a metodologia CallBack.

Gostaria de algum exemplo ou material especifico de como usar chamadas de CallBacks do servidor para o client.

Exemplo:

LADO CLIENT

No client tenho essa classe TCallBack

TCallback = class(TDBXCallBack)
  Function Execute(const Args: TJSONValue): TJSONValue; override;
  function GetConnectionName(OptionList: OleVariant): String;
  procedure ShowWaitScreen(const Msg: String);
  procedure ReleaseProcessScreen;
  function ShowProcessScreen(const ALinha: String; const ACaption: String;
                          APosition: Integer; ACount2: Integer;):  WordBool;
end;

com o codigo abaixo em algum lugar do client mando o CallBack para o servidor

Var
  FCallBack: TCallBack;
  ClientPx: TSMPrincipalClient;  
begin
  if (FCallBack = nil) then begin
     FCallBack := TCallBack.Create();
  end;
  try
    ClientPx := TSMPrincipalClient.Create(conDataSnap.DBXConnection, False);
    ClientPx.SetCallBack(FCallback);
  except
   on E:Exception do
    ExceptionMessage := e.Message;
  end;
end;

LADO SERVER

Apartir de agora que esta a minha duvida,o server recebeu o Callback pelo metodo setCallback

procedure TSMPrincipal.SetCallBack(CallBack: TDBXCallback);
var
  FCallBack: TDBXCallback;
begin
  FCallBack := CallBack;
  FConnection.ConnectionName := GetConnectionName;
  FConnection.Connected := True;
end;

Aí em algum ponto do server chamo o método no client, como fazer isso?

Result := FCallBack.GetConnectionName(Dataset.Data);
Fonte Link
LeoBJr
  • 49
  • 1
  • 4

Uso de CallBack em Delphi

Olá pessoal estou reformulando minha pergunta referente a metodologia CallBack.

Gostaria de algum exemplo ou material especifico de como usar chamadas de CallBacks do servidor para o client.

Exemplo:

LADO CLIENT

No client tenho essa classe TCallBack

TCallback = class(TDBXCallBack)
  Function Execute(const Args: TJSONValue): TJSONValue; override;
  function GetConnectionName(OptionList: OleVariant): String;
  procedure ShowWaitScreen(const Msg: String);
  procedure ReleaseProcessScreen;
  function ShowProcessScreen(const ALinha: String; const ACaption: String;
                          APosition: Integer; ACount2: Integer;):  WordBool;
end;

com o codigo abaixo em algum lugar do client mando o CallBack para o servidor

Var
  FCallBack: TCallBack;
  ClientPx: TSMPrincipalClient;  
begin
  if (FCallBack = nil) then begin
     FCallBack := TCallBack.Create();
  end;
  try
    ClientPx := TSMPrincipalClient.Create(conDataSnap.DBXConnection, False);
    ClientPx.SetCallBack(FCallback);
  except
   on E:Exception do
    ExceptionMessage := e.Message;
  end;
end;

LADO SERVER

Apartir de agora que esta a minha duvida,o server recebeu o Callback pelo metodo setCallback

procedure TSMPrincipal.SetCallBack(CallBack: TDBXCallback);
var
  FCallBack: TDBXCallback;
begin
  FCallBack := CallBack;
  FConnection.ConnectionName := GetConnectionName;
  FConnection.Connected := True;
end;

Ai em algum ponto do server chamo o metodo no client, como fazer isso? pensei que fosse desta forma mais não da certo!

Result := FCallBack.GetConnectionName(Dataset.Data);

Agradeço pela atenção