Текущий архив: 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.039 c
