Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.16;
Скачать: 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 вся ветка

Текущий архив: 2006.07.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.033 c
6-1141986446
Kacnep
2006-03-10 13:27
2006.07.16
Клиент TClientSocket Сервер TIdTCPServer не понимают друг друга


15-1150564169
TUser
2006-06-17 21:09
2006.07.16
Это сделали взрослые


2-1151404087
iamdanil
2006-06-27 14:28
2006.07.16
Need help: помогите среди всех окон найти окно


6-1141725532
vcat
2006-03-07 12:58
2006.07.16
Компонента


1-1149499843
Тфьу
2006-06-05 13:30
2006.07.16
Выбранная запись в cxGrid