Hallo,
ich habe ein Problem mit Umlauten und anliegender Funktion.
Delphi-Quellcode:
function LoadURL(
URL:
String):
String;
var
IOpen, IURL: HINTERNET;
Read: Cardinal;
Msg:
string;
// <==
begin
Result := '
';
try
IOpen := InternetOpen(
'
Mozilla 3.0 (compatible)',
INTERNET_OPEN_TYPE_PRECONFIG, '
', '
',
INTERNET_FLAG_NEED_FILE
);
if IOpen <>
nil then
try
IURL := InternetOpenUrl(IOpen, PAnsiChar(
URL),
nil, 0,
INTERNET_FLAG_NO_UI, 0);
if IURL <>
nil then
try
SetLength(Msg, 4096);
// <====
repeat
if InternetReadFile(IURL, @Msg[1], 4096,
Read)
then // <===
Result := Result + Copy(Msg, 1,
Read)
// <===
else
Break;
until Read = 0;
finally
InternetCloseHandle(IURL);
end;
finally
InternetCloseHandle(IOpen);
end;
except
end;
end;
Die
URL, welche als Parameter auch Umlaute enthalten kann, wird eine PHP-Datei aufgerufen
<?php
if(isset($_GET['user']))
$user =TRIM($_GET['user']);
echo $user;
?>
In meinem PHP-File erscheint dieser Parameter dann ohne Umlaute.
z.B. ich übergebe als Parameter Gläser, in meinem PHP-File kommt als Parameter Glser an.
Ich denke dies ist ein Codierthema, habe aber keine Idee, wie ich dies in den Griff bekomme
Jemand eine Idee ??