DevProTalk - CGI apliakcija u Delphi-ju

Da li je neko radio u Delphiju neku VGI aplikaciju? Imam problem koji nije vezan samo sa CGI.

Naime, kada konzolnoj aplikaciji posaljem sadrzaj preo DOS redirekcije (to je isti princip kako se CGI-ju prosledjuju podaci od web servera), izgleda da Delphi ima probem ako je sadrzaj binaran - cita sadrzaj donekle i onda se zbuni.

U mom primeru, kad nadije karakter $1A, Delphi posle njega cita sve bajtove kao da imaju vrednost $1A iako to nije tacno.

Ovo mi paviproblem kada imam fileupload koji se prosledjuje CGI-ju napravljenom u Delphiju. Ako se pojavi neki problematican karakter, komunikacija puca, ili sadrzaj bude neispravno procitan.

Evo test koda koji ne radikako treba:

Kôd:

program cgitest;

{$APPTYPE CONSOLE}

uses

  SysUtils, Windows;



var

  Buf: PChar;

  BufSize: Integer;

  BufValue : string;

  Code : Integer;

  ContentLength : integer;

  i : integer;

  inchar : char;

  InLimit : Integer;





function GetEnvVarValue(const VarName: string): string;

var

  BufSize: Integer;  // buffer size required for value

begin

  // Get required buffer size (inc. terminal #0)

  BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);

  if BufSize > 0 then

  begin

    // Read env var value into result string

    SetLength(Result, BufSize - 1);

    GetEnvironmentVariable(PChar(VarName),

      PChar(Result), BufSize);

  end

  else

    // No such environment variable

    Result := '';

end;



begin



  // set this to any value greater than zero to limit number of characters read

  // from input stream. If server stalls on upload, limit this to 1 character

  // and then increase until it stalls again that way you wil find exact byte

  // which makes server to stall.

  InLimit := 0;



  WriteLn('Content-Type: text/html');

  WriteLn;



  WriteLn ('<html>');

  WriteLn ('<body>');

  BufValue := GetEnvVarValue ('CONTENT_LENGTH');

  Writeln (BufValue);



  Val (BufValue, ContentLength, Code);





  if ((inLimit >0) and (InLimit < ContentLength)) then

    ContentLength := InLimit;



  WriteLn ('<h1>CGI-TEST</h1>');



  WriteLn ('<p>Content length:' + BufValue + '</p>');

  if (inLimit > 0) then

    WriteLn ('<p>Forced read limit: ' +   IntToStr (ContentLength) + '</p>');



  WriteLn ('</p>');



  WriteLn ('<pre>');

  for i :=1 to ContentLength do begin

     read(input, inchar);

//     Write (IntToHex (Ord (inchar), 2));

     Write (inchar);

  end;

  WriteLn ('</pre>');



  WriteLn ('</body>');

  WriteLn ('</html>');

end.

Da bi citao podatke, u DOS promenljivi CONTENT_LENGTH mora bitiupisana tacna duzina podatakaposlatih redirekcijom. Ako je ovo pokrenuto kao CGI, taj podatak obezbedjuje sam web server.

Postoji li jos neki nacin da se iz Delphija procitaju podciposlati na standardni ulaz, redirekcijom? Prekopah ceo Internet i nigde nisam nasao da se ovaj problem uopste pominje.