Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];

Вниз

Обработка данных посланных серверу методом 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
2-1151646657
Ega23
2006-06-30 09:50
2006.07.16
Ещё раз про фреймы


15-1150612858
Michael5
2006-06-18 10:40
2006.07.16
Хочу поучаствовать в каком-нибудь проекте!


4-1143802305
Russ
2006-03-31 14:51
2006.07.16
Удалённый запуск программ


2-1151552404
stock
2006-06-29 07:40
2006.07.16
выполнение winExec


4-1144095343
Turbid
2006-04-04 00:15
2006.07.16
Проблемма с глобальными переменными в процедуре хука





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский