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