dws2weblibmodule.pas

script language

  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Allow := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetContentEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Content := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetContentEncodingEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.ContentEncoding := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetContentLengthEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.ContentLength := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetContentTypeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.ContentType := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetContentVersionEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.ContentVersion := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetDateEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Date := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetDerivedFromEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.DerivedFrom := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetExpiresEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Expires := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetLastModifiedEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.LastModified := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetLocationEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Location := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetLogMessageEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.LogMessage := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetRealmEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Realm := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetReasonStringEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.ReasonString := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetServerEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Server := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetStatusCodeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.StatusCode := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetTitleEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Title := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSetVersionEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.Version := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetAllowEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Allow;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetContentEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Content;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetContentEncodingEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.ContentEncoding;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetContentLengthEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.ContentLength;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetContentTypeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.ContentType;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetContentVersionEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.ContentVersion;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetDateEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Date;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetDerivedFromEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.DerivedFrom;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetExpiresEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Expires;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetLastModifiedEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.LastModified;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetLocationEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Location;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetLogMessageEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.LogMessage;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetRealmEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Realm;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetReasonStringEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.ReasonString;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetServerEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Server;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetStatusCodeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.StatusCode;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetTitleEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Title;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsGetVersionEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.HttpResponse.Version;
end;

procedure Tdws2WebLib.dws2WebUnitClassesResponseMethodsSendRedirectEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  FHttpInfo.HttpResponse.SendRedirect(Info['Uri']);
end;

procedure Tdws2WebLib.dws2WebUnitClassesScriptDocMethodsDateEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.ScriptDocDate;
end;

procedure Tdws2WebLib.dws2WebUnitClassesScriptDocMethodsSizeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.ScriptDocSize;
end;

procedure Tdws2WebLib.dws2WebUnitClassesScriptDocMethodsFileNameEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.ScriptDocFileName;
end;

procedure Tdws2WebLib.dws2WebUnitClassesScriptDocMethodsPathEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := FHttpInfo.ScriptDocPath;
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsSetDomainEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TCookie(ExtObject).Domain := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsSetExpiresEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TCookie(ExtObject).Expires := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsSetNameEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TCookie(ExtObject).Name := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsSetSecureEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TCookie(ExtObject).Secure := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsSetPathEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TCookie(ExtObject).Path := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsSetValueEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TCookie(ExtObject).Value := Info['Value'];
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsGetDomainEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TCookie(ExtObject).Domain;
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsGetExpiresEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TCookie(ExtObject).Expires;
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsGetHeaderValueEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TCookie(ExtObject).HeaderValue;
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsGetNameEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TCookie(ExtObject).Name;
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsGetSecureEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TCookie(ExtObject).Secure;
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsGetPathEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TCookie(ExtObject).Path;
end;

procedure Tdws2WebLib.dws2WebUnitClassesTCookieMethodsGetValueEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TCookie(ExtObject).Value;
end;

procedure Tdws2WebLib.dws2WebUnitClassesRequestMethodsCookieCountEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] :=
    FHttpInfo.HttpRequest.CookieFields.Count;
end;