jvinterpreter_httpapp.pas

East make Tray Icon in delphi

{-----------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/MPL-1.1.html

Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
the specific language governing rights and limitations under the License.

The Original Code is: JvInterpreter_httpapp.PAS, released on 2002-07-04.

The Initial Developers of the Original Code are: Andrei Prygounkov <a dott prygounkov att gmx dott de>
Copyright (c) 1999, 2002 Andrei Prygounkov
All Rights Reserved.

Contributor(s):

You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
located at http://jvcl.sourceforge.net

Description : adapter unit - converts JvInterpreter calls to delphi calls

Known Issues:
-----------------------------------------------------------------------------}
// $Id: JvInterpreter_httpapp.pas,v 1.12 2005/02/17 10:20:40 marquardt Exp $

unit JvInterpreter_httpapp;

{$I jvcl.inc}

interface

uses
  {$IFDEF UNITVERSIONING}
  JclUnitVersioning,
  {$ENDIF UNITVERSIONING}
  JvInterpreter;

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: TJvInterpreterAdapter);

{$IFDEF UNITVERSIONING}
const
  UnitVersioning: TUnitVersionInfo = (
    RCSfile: '$RCSfile: JvInterpreter_httpapp.pas,v $';
    Revision: '$Revision: 1.12 $';
    Date: '$Date: 2005/02/17 10:20:40 $';
    LogPath: 'JVCL\run'
  );
{$ENDIF UNITVERSIONING}

implementation

uses
  SysUtils, Classes,
  HTTPApp;

{ function ReadClient(var Buffer; Count: Integer): Integer; }

procedure TWebRequest_ReadClient(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).ReadClient(Args.Values[0], Args.Values[1]);
end;

{ function ReadString(Count: Integer): string; }

procedure TWebRequest_ReadString(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).ReadString(Args.Values[0]);
end;

{ function TranslateURI(const URI: string): string; }

procedure TWebRequest_TranslateURI(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).TranslateURI(Args.Values[0]);
end;

{ function WriteClient(var Buffer; Count: Integer): Integer; }

procedure TWebRequest_WriteClient(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).WriteClient(Args.Values[0], Args.Values[1]);
end;

{ function WriteString(const AString: string): Boolean; }

procedure TWebRequest_WriteString(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).WriteString(Args.Values[0]);
end;

{ procedure ExtractContentFields(Strings: TStrings); }

procedure TWebRequest_ExtractContentFields(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebRequest(Args.Obj).ExtractContentFields(V2O(Args.Values[0]) as TStrings);
end;

{ procedure ExtractCookieFields(Strings: TStrings); }

procedure TWebRequest_ExtractCookieFields(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebRequest(Args.Obj).ExtractCookieFields(V2O(Args.Values[0]) as TStrings);
end;

{ procedure ExtractQueryFields(Strings: TStrings); }

procedure TWebRequest_ExtractQueryFields(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TWebRequest(Args.Obj).ExtractQueryFields(V2O(Args.Values[0]) as TStrings);
end;

{ function GetFieldByName(const Name: string): string; }

procedure TWebRequest_GetFieldByName(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).GetFieldByName(Args.Values[0]);
end;

{ property Read MethodType: TMethodType }

procedure TWebRequest_Read_MethodType(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).MethodType;
end;

{ property Read ContentFields: TStrings }

procedure TWebRequest_Read_ContentFields(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TWebRequest(Args.Obj).ContentFields);
end;

{ property Read CookieFields: TStrings }

procedure TWebRequest_Read_CookieFields(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TWebRequest(Args.Obj).CookieFields);
end;

{ property Read QueryFields: TStrings }

procedure TWebRequest_Read_QueryFields(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TWebRequest(Args.Obj).QueryFields);
end;

{ property Read Method: string }

procedure TWebRequest_Read_Method(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Method;
end;

{ property Read ProtocolVersion: string }

procedure TWebRequest_Read_ProtocolVersion(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).ProtocolVersion;
end;

{ property Read URL: string }

procedure TWebRequest_Read_URL(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).URL;
end;

{ property Read Query: string }

procedure TWebRequest_Read_Query(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Query;
end;

{ property Read PathInfo: string }

procedure TWebRequest_Read_PathInfo(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).PathInfo;
end;

{ property Read PathTranslated: string }

procedure TWebRequest_Read_PathTranslated(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).PathTranslated;
end;

{ property Read Authorization: string }

procedure TWebRequest_Read_Authorization(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Authorization;
end;

{ property Read CacheControl: string }

procedure TWebRequest_Read_CacheControl(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).CacheControl;
end;

{ property Read Cookie: string }

procedure TWebRequest_Read_Cookie(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Cookie;
end;

{ property Read Date: TDateTime }

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

{ property Read Accept: string }

procedure TWebRequest_Read_Accept(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Accept;
end;

{ property Read From: string }

procedure TWebRequest_Read_From(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).From;
end;

{ property Read Host: string }

procedure TWebRequest_Read_Host(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Host;
end;

{ property Read IfModifiedSince: TDateTime }

procedure TWebRequest_Read_IfModifiedSince(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).IfModifiedSince;
end;

{ property Read Referer: string }

procedure TWebRequest_Read_Referer(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Referer;
end;

{ property Read UserAgent: string }

procedure TWebRequest_Read_UserAgent(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).UserAgent;
end;

{ property Read ContentEncoding: string }

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

{ property Read ContentType: string }

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

{ property Read ContentLength: Integer }

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

{ property Read ContentVersion: string }

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

{ property Read Content: string }

procedure TWebRequest_Read_Content(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Content;
end;

{ property Read Connection: string }

procedure TWebRequest_Read_Connection(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).Connection;
end;

{ property Read DerivedFrom: string }

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

{ property Read Expires: TDateTime }

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

{ property Read Title: string }

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

{ property Read RemoteAddr: string }

procedure TWebRequest_Read_RemoteAddr(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).RemoteAddr;
end;

{ property Read RemoteHost: string }

procedure TWebRequest_Read_RemoteHost(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).RemoteHost;
end;

{ property Read ScriptName: string }

procedure TWebRequest_Read_ScriptName(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).ScriptName;
end;

{ property Read ServerPort: Integer }

procedure TWebRequest_Read_ServerPort(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TWebRequest(Args.Obj).ServerPort;
end;

{ TCookie }

{ constructor Create(Collection: TCollection) }

procedure TCookie_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCookie.Create(V2O(Args.Values[0]) as TCollection));
end;

{ procedure AssignTo(Dest: TPersistent); }

procedure TCookie_AssignTo(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCookie(Args.Obj).AssignTo(V2O(Args.Values[0]) as TPersistent);
end;

{ property Read Name: string }

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

{ property Write Name(Value: string) }

procedure TCookie_Write_Name(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCookie(Args.Obj).Name := Value;