Скачать: CL | DM;

Обработка данных посланных серверу методом POST   Найти похожие ветки 

← →
NORDmen ©   (2006-06-26 21:42) [0]

привет. я не знаю где рыть в следующем вопросе:
программа на delphi должна получать данные из веб форм посланные методом post.
возможно ли это вообще сделать? какие компоненты юзать, и что вообще  можно почитать по сабжу?

---

← →
Мефисто   (2006-06-26 21:48) [1]

В данном вопросе могу очччень ошибаться
Но может заглянуть сюда \Demos\IntraWeb\ и глянуть нелп по соотвествующим компонентам?

Еще раз повторюсь, что это именно то что нужно, не уверен даже на 50% :)

---

← →
nordmen ©   (2006-06-26 22:47) [2]

Мефисто, не знаю точно, но имхо интравеб для создания сайтов с помошью IDE delphi )(было дело делал сайт на intraweb ;) ), а вот насчет обработки данных сервером врядли...
но в любом случае - по интравеб оч. мало информации и лучше не браться за него.
дык должны же быть хотябы стандартные средства winapi - просто не знаю куда рыть.

подскажите плз кто знает!!!

---

← →
Пусик ©   (2006-06-26 23:46) [3]

Вот, содрала из древнего проекта:
function GetPostEnv: String;
var
   StdIn,Size,Actual: Cardinal;
begin
 Result := "";
 StdIn := GetStdHandle(STD_INPUT_HANDLE);
 Size := SetFilePointer(StdIn,0,nil,FILE_END);
 SetFilePointer(StdIn,0,nil,FILE_BEGIN);
 SetLength(Result,Size);
 if Size>0 then
 begin
   ReadFile(StdIn,Result[1],Size,Actual,nil);
 end;

end;

---

← →
nordmen ©   (2006-06-27 06:05) [4]

Пусик, и как это юзать? давайте как поподробнее ))
и как понять от какого компа это пришло? комп обрабатывает сообшения от нескольких клиентов.

---

← →
Пусик ©   (2006-06-27 09:51) [5]

>  как понять от какого компа это пришло?


Об этом вопроса не было. Но это в любом случае не проблема.

Функция возвращает строку, стодержащую переданные методом POST данные.

Адрес хоста-клиента - берется из переменной окружения, из какой - см. документацию.

Вот функция, которая строку, переданную методом GET.

Все переменные окружения вытаскиваются аналогично.

function GetGetEnv: String;
var
 buf: PChar;
begin
 GetMem(buf,BufSize);
 GetEnvironmentVariable(PChar("QUERY_STRING"),Buf,BufSize);
 Result := String(buf);
 FreeMem(buf);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c