Вопрос к серверу
IdHTTP1->Request->UserAgent= "Mozilla/5.0 (Windows NT 6.1; rv:16.0) Gecko/20100101 Firefox/16.0";
IdHTTP1->Request->Accept= "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
IdHTTP1->Request->AcceptLanguage= "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3";
IdHTTP1->Request->Connection= "keep-alive";
IdHTTP1->Request->Host= "store.steampowered.com";
TStrings* ToServer; // чего отправляем
TStringStream* Response; // чего получаем
ToServer = new TStringList();
Response = new TStringStream();
ToServer->Add("param=" + Edit1->Text);
IdHTTP1->HandleRedirects = true;
IdHTTP1->Post("http://test.ru/test.php",ToServer, Response);
Memo1->Lines->Add(Response->DataString);
delete Response;
delete ToServer;
На сервере лежит обычный PHP скрипт, для теста:
<?php
$param = $_REQUEST['param'];
$fd = fopen("text.txt", "w");
fwrite($fd, $param);
fclose($fd);
echo $param;
?>
Берет ваш "param", записывает в лежащий там-же текстовый файл, и возвращает. Не забыть про разрешения для файла (для PHP не критично, а вот текстовик должен иметь право на чтение и запись, в данном случае).
PHP прост, и написать сверку с ключами, лежащими в текстовом файле очень просто. И еще - не до конца понял, как работает, но PHP имеет доступ 0400 - но при этом работает.
Здравствуйте
Спасибо. Это решение имеет право на жизнь , хоть и не очевидное (само решение)
остановился на таком варианте, по данному предложенному варианту:
TPointF pos = TPointF(0, btnBackup->Height + 1);
pos = btnBackup->LocalToAbsolute(pos);
pos = Screen->ActiveForm->ClientToScreen(pos);
pmenBackup->Popup(pos.X, pos.Y);
Принимаю поздравления...
Начал переносить код с нерабочего проекта в рабочий (который запускался)...
у меня в Create было заполнение поля стиля...
тип значения TValue
у меня было
= TValue::From<String>("0");
этот код нормально работал без линковки - все было хорошо
с линковкой вылазил Access violation описаный выше
решение такое :
= TValue::_op_Implicit(String("0"));
К сожалению, дебагер, как я и говорил, абсолютно бесполезный в этой среде, жаль.....