Web Server Anwendungen

[jbg]

Zitat von Tpercon:

Ist denn so der generelle Aufbau oder hast du da jetzt Sachen weggelassen?

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.

Code:

function HexToChar(const S: string): Char;
  function HexCharToByte(c: Char): Byte;
  begin
    if c in ['0'..'9'] then Result := Ord(c) - Ord('0')
     else if c in ['a'..'f'] then Result := 10 + ord(c) - ord('a')
     else if c in ['A'..'F'] then Result := 10 + ord(c) - ord('A')
     else Result := 0;
  end;
begin
  if Length(S) = 2 then
    Result := Char((HexCharToByte(S[1]) shl 4) or (HexCharToByte(S[2])))
  else
    Result := #32;
end;

procedure QueryStringToList(const QueryString: string; List: TStrings);
var
  S: string;
  i: Integer;
  F, P: PChar;
begin
  if QueryString = '' then Exit;
  F := PChar(QueryString);
  P := F;
  while True do
  begin
    if P^ in [#0, '&'] then
    begin
      SetString(S, F, P - F);
      F := P + 1;
      i := 1;
      while i < Length(S) do
      begin
        if S[i] = '%' then
        begin
          S[i] := HexToChar(Copy(S, i + 1, 2));
          Delete(S, i + 1, 2);
        end;
        Inc(i);
      end;
      List.Add(S);
    end;
    if P^ = #0 then Break;
    Inc(P);
  end;
end;

Zitat:

Kennst du ne gute Seite wo man sowas lernen kann?

Ne leider nicht. Ich hab mir das auch nur aus mehreren Quellen zusammengetragen. (QueryStringToList und HexToChar habe ich natürlich selbst geschrieben).
Die Daten in der Environment Variable Query_String sind die GET Daten. Die POST Daten werden kann man über ReadLn einlesen. Die Länge der POST Daten wird durch die Environment Variable "Content_Length" und der Typ der Daten mit "Content_Type" an das CGI Programm übergeben.