Znalazłem w internecie funkcje pozwalającą na wyszukiwanie metodą GET i POST. Zastosowałem ją do metody POST w kodzie poniżej:
function W_HTTP_SEARCH(szukaj:string):string;
var
FhSession, FHostConnection, FHTTPRequest: HINTERNET;
FUA, FHost, FScriptFile, FvHTTP, FContent,
FQueryStr, FReferer,FMethod: string;
FBytesToRead: DWord;
FData: Array[0..1024] of Char;
FHTMLSource:string;
begin
FUA:='Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1';
FMethod:= 'POST';
FHost:='p2mforum.info';
FScriptFile:= '/search.php?searchid=';
FvHTTP:='HTTP/1.1';
FReferer:='http://www.p2mforum.info/';
FContent:='Content-Type: application/x-www-form-urlencoded';
FQueryStr:='do=process&quicksearch=1&childforums=1&exactname=1&s=&query='+szukaj+'&showposts=0';
FhSession := InternetOpen(PChar(FUA), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
FHostConnection := InternetConnect(FhSession, PChar(FHost), 80, '', '', INTERNET_SERVICE_HTTP, 0, 0);
FHTTPRequest := HttpOpenRequest(FHostConnection,PChar(FMethod), PChar(FScriptFile), PChar(FvHTTP), Pchar(FReferer), nil, INTERNET_FLAG_RELOAD, 0);
HttpSendRequest(FHTTPRequest,Pchar(FContent),length(FContent),Pchar(FQueryStr),Length(FQueryStr));
while InternetReadFile(FHTTPRequest, @FData, Dword(SizeOf(FData)),FBytesToRead) do
begin
if (FBytesToRead<64) then
begin
FHTMLSource:= FHTMLSource+ Copy(FData,1,FBytesToRead);
Break;
end else FHTMLSource:= FHTMLSource+FData;
end;
if (FhSession<>nil) then InternetCloseHandle(FhSession);
if (FHostConnection<>nil) then InternetCloseHandle(FHostConnection);
if (FHTTPRequest<>nil) then InternetCloseHandle(FHTTPRequest);
result:=FHTMLSource;
end;
Funkcja działa ale w niektórych momentach kodu źródłowego strony jaki zwraca jest zakodowanie typu "PKCS7" oczywiście ten kod interesuje mnie najbardziej:
MIIHPwYJKoZIhvcNAQcEoIIHMDCCBywCAQExggEwMIIBLAIB
ADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYD
VQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW
5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hc
GkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKo
ZIhvcNAQEBBQAEgYCGjbc3IhZXc8oWiNkuY+4A9T0HErle5PPkJNEnj0y
jazDvPV7zph9tBm+be5rrVtruHHZPFeIve1m47M8GrS44Sun/V0+Knzb
w0mq5IZ7QxkRsdej3FvB6iLXRiAxsUqJ1fYEX/
+Du+4RowlYmAgZh6loNChPynhDtC7Df2AYQbqbfEppiwV1UUKCSCXm
ycCooxvZ5PW0EV+TNEpncuJgq5OhJOivaO1/aimh5Fa7O9Y0G/P0aAe8
+rnJQTGTfxnSSl0uBLt8FVE/NJ5p/a9vZwjmuO1qzEjoWvHKlFzhIjP+p6L
+P24ReEJ4M0QB55tAoeEsHbqYaXz7G39yGnrn/LRYt2nVzuJaCCA4cwg
gODMIIC7KADAgECAgEAMA0GCSqGSIb3DQEBBQUAMIGOMQswCQY
DVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWl
uIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFAp
saXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3D
QEJARYNcmVAcGF5cGFsLmNvbTAeFw0wNDAyMTMxMDEzMTVaFw0zNT
AyMTMxMDEzMTVaMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ
0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBh
bCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsa
XZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbTCBnzA
NBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAwUdO3fxEzEtcnI7ZKZL412X
vZPugoni7i7D7prCe0AtaHTc97CYgm7NsAtJyxNLixmhLV8pyIEaiHXWAh
8fPKW+R017+EmXrr9EaquPmsVvTywAAE1PMNOKqo2kl4Gxiz9zZqIajO
m1fZGWcGS0f5JQ2kBqNbvbg2/Za+GJ/qwUCAwEAAaOB7jCB6zAdBgN
VHQ4EFgQUlp98u8ZvF71ZP1LXChvsENZklGswgbsGA1UdIwSBszCBsIA
Ulp98u8ZvF71ZP1LXChvsENZklGuhgZSkgZEwgY4xCzAJBgNVBAYTAlVT
MQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEU
MBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHM
xETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBw
YXlwYWwuY29tggEAMAwGA1UdEwQFMAMBAf8wDQYJKoZIhvcNAQEFBQ
ADgYEAgV86VpqAWuXvX6Oro4qJ1tYVIT5DgWpE692Ag422H7yRIr/9j/iK
G4Thia/Oflx4TdL+IFJBAyPK9v6zZNZtBgPBynXb048hsP16l2vi0k5Q2JKiP
DsEfBhGI+HnxLXEaUWAcVfCsQFvd2A1sxRr67ip5y2wwBelUecP3AjJ+Yc
xggGaMIIBlgIBATCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAk
NBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYX
lQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIb
Gl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQA
wCQYFKw4DAhoFAKBdMBgGCSqGSIb3DQEJAzELBgkqhkiG9w0BBwEw
HAYJKoZIhvcNAQkFMQ8XDTA3MTEwMjE5MzcxM1owIwYJKoZIhvcNAQk
MRYEFE5oAtGxd2wDRojQBX9QXG3g9+yxMA0GCSqGSIb3DQEBAQUABI
GAKFOzsD7lerLOAER2LXacI3quSCitsZ+TdFzg8+1Fgv7IZACMb9TQFA6T
4g1Cpezv5CrxEJ18b2Tn7DOxPYKwCGVICqC6yELde0GMZ21JIlhGHBfeE
6978WVIYzYZHHdiOTiPGMJIXSZwxF+fU7Z+KAOh+wad4YDcVgkmO6oEf
pw=-----END PKCS7-----
Czy może mi ktoś powiedzieć jak rozkodować ten tekst lub jak zmodyfikować tą funkcje? Dzięki za pomoc..