DevProTalk

Forumi IT profesionalaca
web development, web design, e-business, SEO


Idite nazad   DevProTalk > Web development i web aplikacije > Programiranje
Želite da se reklamirate ekskluzivno na ovoj poziciji? Javite se

Programiranje Java, Perl, VB, ASP, .NET, C, C++, Pascal, Delphi Sponzor: VIP izazov 3

Odgovori
 
Alati teme Način prikaza
Staro 13. 09. 2007.   #1
Pedja
Predrag Supurović
Grand Master
 
Datum učlanjenja: 24.01.2006
Lokacija: Užice
Poruke: 791
Hvala: 3
200 "Hvala" u 12 poruka
Pedja is on a distinguished roadPedja is on a distinguished roadPedja is on a distinguished road
Default 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.
Pedja je offline   Odgovorite uz citat
Staro 13. 09. 2007.   #2
Pedja
Predrag Supurović
Grand Master
 
Datum učlanjenja: 24.01.2006
Lokacija: Užice
Poruke: 791
Hvala: 3
200 "Hvala" u 12 poruka
Pedja is on a distinguished roadPedja is on a distinguished roadPedja is on a distinguished road
Default

Nasao sam nacin da citam binarno sve podatke iresio glavni problem:

Citat:

program console2;
{$Apptype console}
const
cBuffSize = 1024;

var
buff : array[1..cBuffSize] of char;
NumRead : integer;
inF : file of char;
outF : file of char;
mByte : byte;
prompt : char = '>';

begin
Assign (inf, '');
Reset(inf);
Assign (outF, '');
Rewrite(outf);
while not eof do
begin
BlockRead(inf, mByte, cBuffSize, NumRead);
WriteLn; Write (NumRead);
if (NumRead > 0) then begin
BlockWrite (outf, prompt, 1);
BlockWrite(outf, mByte, NumRead);
end else begin
Break;
end;
end;
CloseFile (inf);
end.
... ali se sad pojavio novi: Uvek preskocidarocita neke podatke sa pocetka.
Kada se podaci citaju preko Input promenijve koja je pokazivac na standradni ulaz u tekst rezimu, onda svec ita (dok je ulaz obican tekst), ali kada se cita binarno, onda cita sve ali prekoci na pocetku (ne)odredjeni broj bajtova...

Nikad me nije Delphi ovako iznervirao...
Pedja je offline   Odgovorite uz citat
Odgovori


Alati teme
Način prikaza

Pravila pisanja
Možete ne započinjati nove teme
Možete ne slati odgovore
Možete ne slati priloge
Možete ne izmeniti svoje poruke
vB kôd je Uključen
Smajliji su Uključen
[IMG] kod je Uključen
HTML kôd je Isključen
Pogledajte forum

Slične teme
Tema Početna poruka teme Forum Odgovori Poslednja poruka
Znate li Delphi i SQL? dmajkic Poslovne ponude i zapošljavanje 7 12. 10. 2008. 09:37
Apliakcija za streaming Marko Medojevic Web aplikacije, web servisi i software 11 03. 10. 2007. 09:17
Delphi for PHP Ilija Studen Web aplikacije, web servisi i software 16 13. 05. 2007. 13:06
Delphi i ModelMaker oki030 Programiranje 0 21. 04. 2006. 16:20
C++ ili Delphi programer mega023 Poslovne ponude i zapošljavanje 0 17. 11. 2005. 21:23


Vreme je GMT +2. Trenutno vreme je 15:42.


Powered by vBulletin® Verzija 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright © DevProTalk. All Rights Reserved.
Mišljenja, saveti, izjave, ponude ili druge informacije ili sadržaji nastali na Sajtu su vlasništvo onoga ko ih je kreirao, a ne DevProTalk.com, tako da ne morate da se oslanjate na njih.
Autori poruka su jedini odgovorni za ovakve sadržaje. DevProTalk.com ne garantuje tačnost, kompletnost ili upotrebnu vrednost informacija, stavova, saveta ili datih izjava. Ne postoje uslovi pod kojima bi mi bili odgovorni za štetu ili gubitak koji je posledica bilo čijeg oslanjanja na nepouzdane informacije, ili bilo kakve informacije nastale kroz komunikaciju između registrovanih članova.
Web sajt može sadržavati linkove na druge web sajtove na Internetu ili neke druge sadržaje. Ne kontrolišemo niti podržavamo te druge web sajtove, niti smo pregledali bilo kakve sadržaje na takvim sajtovima. Mi nećemo biti odgovorni za legalnost, tačnost ili prikladnost bilo kog sadržaja, oglasa, proizvoda, usluga ili informacije lociranim na ili distribuiranih kroz druge web sajtove, niti za bilo kakvu štetu nastalu kao posledica takvih informacija. DevProTalk.com drži i čuva druga prava vlasništva na web sajtu. Web sajt sadrže materijale zaštićene copyright-om, zaštitne znakove i druge informacije o pravu vlasništva ili softver. Članovi mogu poslatu informacije zaštićene pravima vlasništva njihovih nosilaca i ona ostaju zaštićena bez obzira da li su oni koji prenose te informacije to naveli ili ne. Osim informacija koje su u javnom vlasništvu ili za koje dobijete dozvolu, nemate pravo da kopirate, modifikujete ili na bilo koji način menjate, objavljujete, prenosite, distribuirate, izvršavate, prikazujete ili prodajte bilo koju informaciju zaštićenu pravima vlasništva. Slanjem informacija ili sadržaja na bilo koji deo DevProTalk.com, Vi automatski dozvoljavate i predstavljate garanciju da imate pravo da dozvolite DevProTalk.com ili članovima DevProTalk.com bespovratnu, kontinualnu, neograničenu, globalnu dozvolu da koriste, kopiraju, izvršavaju, prikazuju i distribuiraju takve informacije i sadržaje i da iz takvih sadžaja koriste bilo koji deo u bilo koje svrhe, kao i pravo i dozvolu da koriste gore navedene sadržaje. Svi zaštitni znakovi (trademarks), logotipi, oznake usluga, firme ili imena proizvoda koji se pominju na ovom web sajtu su vlasništvo kojim raspolažu njihovi vlasnici.