Witam, mam taki problem próbuje za pomocą biblioteki WinInet wywołać metodę GET, ale coś mi to nie wychodzi. Mam taki kod:
Var
hSession, hURL, hRequest : HINTERNET;
begin
hSession := InternetOpen('Miximaz',INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hURL := InternetConnect(hSession, PChar('http://www.jnternet.site88.net/dwa.php?'), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
try
hRequest := HttpOpenRequest(hURL, 'GET', PChar('usher=test&pc=alamakota'), HTTP_VERSION, '', nil, INTERNET_FLAG_SECURE, 0);
HttpSendRequest(hRequest, nil, 0, nil, 0);
InternetCloseHandle(hRequest);
finally
InternetCloseHandle(hURL);
end;
finally
InternetCloseHandle(hSession);
end
end;
A taki mam kod skryptu php:
<?php
$fp = fopen($_GET['usher'], "a");
fputs($fp, $_GET['pc']);
?>
Może ktoś już z tym walczył i wie co robię źle, będę wdzięczny za wskazówki :). A może się nie da?
Pisze w Delphi.
Pozdrawiam