Ergebnis der Suchanfrage

• Forum: Netzwerke
    Delphi
    by jbg, 8. Jul 2002
  Ich habe noch ein paar Fehler im Post ausgebessert.
  
  Zu GetEnvironmentVariable:
  Ab Delphi 6 ist diese Funktion in SysUtils.
  Hier hast du eine Version, die auch unter D345 läuft:
  function GetEnvVar(const Name: string): string;
  var P: PChar;
  begin
  P := StrAlloc(10000);
  try
• Forum: Netzwerke
    Delphi
    by jbg, 8. Jul 2002
• Forum: Netzwerke
    Delphi
    by jbg, 8. Jul 2002
  Ja, das ist der generelle Aufbau wenn du nicht über die bei der Pro und Ent. Version enhaltenen TCGIApplication Klasse programmierst.
  Ich habe aber etwas meiner Meinung nach wichtiges weggelassen. Nämlich die Umwandlungsroutine für den Query_String.
  function HexToChar(const S: string): Char;
  function HexCharToByte(c: Char): Byte;
  begin
  if c in then Result := Ord(c) - Ord('0')
  ...
• Forum: Netzwerke
    Delphi
    by jbg, 8. Jul 2002
  Hier mal ein Beispiel für eine CGI Anwendung:
  program MyCgi;
  uses Windows, SysUtils;
  {$APPTYPE CONSOLE}
  
  var QueryString: string;
  begin
  QueryString := GetEnvironmentVariable('Query_String');
  { Argumente mit ? übergeben: 'MyCgi.exe?Param1=Irgendwas&Post=443' }