Difference between revisions of "Midware TAppSrvClient.Answer"
Jump to navigation
Jump to search
(Created page with ' Main page -> Midware component reference -> TAppSrvClient -> [[Midware_TAppSrvClient.Answer | Answer]…') |
|||
(One intermediate revision by the same user not shown) | |||
Line 3: | Line 3: | ||
== Definition == | == Definition == | ||
− | '''property''' Answer: | + | '''property''' Answer: TMWBuffer; |
== Description == | == Description == | ||
The Answer property holds the answer from the application server. It is organized as the request: records made of fields. See TMWBuffer description for more details. | The Answer property holds the answer from the application server. It is organized as the request: records made of fields. See TMWBuffer description for more details. | ||
− | |||
Answer property is to be accessed from the OnRequestDone event handler, when the application server has returned his response. | Answer property is to be accessed from the OnRequestDone event handler, when the application server has returned his response. | ||
Latest revision as of 09:21, 14 May 2011
Main page -> Midware component reference -> TAppSrvClient -> Answer
Definition
property Answer: TMWBuffer;
Description
The Answer property holds the answer from the application server. It is organized as the request: records made of fields. See TMWBuffer description for more details. Answer property is to be accessed from the OnRequestDone event handler, when the application server has returned his response.
Example
<syntaxhighlight lang="delphi"> procedure TForm1.AppSrvClient1RequestDone(
Sender : TObject; Error : Integer);
var
nRec : Integer;
begin
if Error <> 0 then begin Memo1.Lines.Add('Error #' + IntToStr(Error)); Exit; end; Memo1.Lines.Add('Answer status = ' + AppSrvClient1.AnswerStatus); nRec := 0; AppSrvClient1.Answer.First; while not AppSrvClient1.Answer.Eof do begin Inc(nRec); Memo1.Lines.Add(IntToStr(nRec) + ': ' + AppSrvClient1.Answer.RecordToString); AppSrvClient1.Answer.Next; end;
end; </syntaxhighlight>