Главная страница
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.036 c
15-1150345618
Александр Иванов
2006-06-15 08:26
2006.07.16
Алгоритмы поиска маршрута в графе


2-1151512255
129
2006-06-28 20:30
2006.07.16
Excel


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


15-1150354431
Crazy manager
2006-06-15 10:53
2006.07.16
Вопрос по Access


10-1122030328
Weberd
2005-07-22 15:05
2006.07.16
Как создать ActiveX враппер под свой компнонент