jvinterpreter_httpapp.pas

East make Tray Icon in delphi

end;

{ property Read Value: string }

procedure TCookie_Read_Value(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCookie(Args.Obj).Value;
end;

{ property Write Value(Value: string) }

procedure TCookie_Write_Value(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCookie(Args.Obj).Value := Value;
end;

{ property Read Domain: string }

procedure TCookie_Read_Domain(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCookie(Args.Obj).Domain;
end;

{ property Write Domain(Value: string) }

procedure TCookie_Write_Domain(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCookie(Args.Obj).Domain := Value;
end;

{ property Read Path: string }

procedure TCookie_Read_Path(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCookie(Args.Obj).Path;
end;

{ property Write Path(Value: string) }

procedure TCookie_Write_Path(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCookie(Args.Obj).Path := Value;
end;

{ property Read Expires: TDateTime }

procedure TCookie_Read_Expires(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCookie(Args.Obj).Expires;
end;

{ property Write Expires(Value: TDateTime) }

procedure TCookie_Write_Expires(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCookie(Args.Obj).Expires := Value;
end;

{ property Read Secure: Boolean }

procedure TCookie_Read_Secure(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCookie(Args.Obj).Secure;
end;

{ property Write Secure(Value: Boolean) }

procedure TCookie_Write_Secure(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCookie(Args.Obj).Secure := Value;
end;

{ property Read HeaderValue: string }

procedure TCookie_Read_HeaderValue(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCookie(Args.Obj).HeaderValue;
end;

{ TWebResponse }

{ function GetCustomHeader(const Name: string): String; }

procedure TWebResponse_GetCustomHeader(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).GetCustomHeader(Args.Values[0]);
end;

{ procedure SendResponse; }

procedure TWebResponse_SendResponse(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).SendResponse;
end;

{ procedure SendRedirect(const URI: string); }

procedure TWebResponse_SendRedirect(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).SendRedirect(Args.Values[0]);
end;

{ procedure SendStream(AStream: TStream); }

procedure TWebResponse_SendStream(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).SendStream(V2O(Args.Values[0]) as TStream);
end;

{ function Sent: Boolean; }

procedure TWebResponse_Sent(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Sent;
end;

{ procedure SetCookieField(Values: TStrings; const ADomain, APath: string; AExpires: TDateTime; ASecure: Boolean); }

procedure TWebResponse_SetCookieField(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).SetCookieField(V2O(Args.Values[0]) as TStrings, Args.Values[1], Args.Values[2],
    Args.Values[3], Args.Values[4]);
end;

{ procedure SetCustomHeader(const Name, Value: string); }

procedure TWebResponse_SetCustomHeader(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).SetCustomHeader(Args.Values[0], Args.Values[1]);
end;

{ property Read Cookies: TCookieCollection }

procedure TWebResponse_Read_Cookies(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TWebResponse(Args.Obj).Cookies);
end;

{ property Read HTTPRequest: TWebRequest }

procedure TWebResponse_Read_HTTPRequest(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TWebResponse(Args.Obj).HTTPRequest);
end;

{ property Read Version: string }

procedure TWebResponse_Read_Version(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Version;
end;

{ property Write Version(Value: string) }

procedure TWebResponse_Write_Version(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).Version := Value;
end;

{ property Read ReasonString: string }

procedure TWebResponse_Read_ReasonString(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).ReasonString;
end;

{ property Write ReasonString(Value: string) }

procedure TWebResponse_Write_ReasonString(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).ReasonString := Value;
end;

{ property Read Server: string }

procedure TWebResponse_Read_Server(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Server;
end;

{ property Write Server(Value: string) }

procedure TWebResponse_Write_Server(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).Server := Value;
end;

{ property Read WWWAuthenticate: string }

procedure TWebResponse_Read_WWWAuthenticate(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).WWWAuthenticate;
end;

{ property Write WWWAuthenticate(Value: string) }

procedure TWebResponse_Write_WWWAuthenticate(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).WWWAuthenticate := Value;
end;

{ property Read Realm: string }

procedure TWebResponse_Read_Realm(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Realm;
end;

{ property Write Realm(Value: string) }

procedure TWebResponse_Write_Realm(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).Realm := Value;
end;

{ property Read Allow: string }

procedure TWebResponse_Read_Allow(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Allow;
end;

{ property Write Allow(Value: string) }

procedure TWebResponse_Write_Allow(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).Allow := Value;
end;

{ property Read Location: string }

procedure TWebResponse_Read_Location(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Location;
end;

{ property Write Location(Value: string) }

procedure TWebResponse_Write_Location(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).Location := Value;
end;

{ property Read ContentEncoding: string }

procedure TWebResponse_Read_ContentEncoding(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).ContentEncoding;
end;

{ property Write ContentEncoding(Value: string) }

procedure TWebResponse_Write_ContentEncoding(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).ContentEncoding := Value;
end;

{ property Read ContentType: string }

procedure TWebResponse_Read_ContentType(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).ContentType;
end;

{ property Write ContentType(Value: string) }

procedure TWebResponse_Write_ContentType(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).ContentType := Value;
end;

{ property Read ContentVersion: string }

procedure TWebResponse_Read_ContentVersion(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).ContentVersion;
end;

{ property Write ContentVersion(Value: string) }

procedure TWebResponse_Write_ContentVersion(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).ContentVersion := Value;
end;

{ property Read DerivedFrom: string }

procedure TWebResponse_Read_DerivedFrom(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).DerivedFrom;
end;

{ property Write DerivedFrom(Value: string) }

procedure TWebResponse_Write_DerivedFrom(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).DerivedFrom := Value;
end;

{ property Read Title: string }

procedure TWebResponse_Read_Title(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Title;
end;

{ property Write Title(Value: string) }

procedure TWebResponse_Write_Title(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).Title := Value;
end;

{ property Read StatusCode: Integer }

procedure TWebResponse_Read_StatusCode(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).StatusCode;
end;

{ property Write StatusCode(Value: Integer) }

procedure TWebResponse_Write_StatusCode(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).StatusCode := Value;
end;

{ property Read ContentLength: Integer }

procedure TWebResponse_Read_ContentLength(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).ContentLength;
end;

{ property Write ContentLength(Value: Integer) }

procedure TWebResponse_Write_ContentLength(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).ContentLength := Value;
end;

{ property Read Date: TDateTime }

procedure TWebResponse_Read_Date(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Date;
end;

{ property Write Date(Value: TDateTime) }

procedure TWebResponse_Write_Date(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).Date := Value;
end;

{ property Read Expires: TDateTime }

procedure TWebResponse_Read_Expires(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).Expires;
end;

{ property Write Expires(Value: TDateTime) }

procedure TWebResponse_Write_Expires(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebResponse(Args.Obj).Expires := Value;
end;

{ property Read LastModified: TDateTime }

procedure TWebResponse_Read_LastModified(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebResponse(Args.Obj).LastModified;
end;

{ property Write LastModified(Value: TDateTime) }

procedure TWebResponse_Write_LastModified(const Value: Variant; Args: TJvInterpreterArgs);