Delphi get http response - delphi

Question

I am trying to send and get response from url in delphi
I am using WinInet
Here is function i am using
edit : i can successfully send and get response problem is website not recognize sent data of edt1 and replay invalid response i have posted below working code of vb10 that code work perfect is there any difference in that code and mine or where i am doing wrong ?
in button1
var
s:= string;
begin
s:= GetUrlContent('website url ' + edt1.text);
memo.lines.add(s);
end;
function GetUrlContent(const Url: string): string;
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
BytesRead: dWord;
begin
Result := '';
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(NetHandle) then
begin
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(UrlHandle) then
{ UrlHandle valid? Proceed with download }
begin
FillChar(Buffer, SizeOf(Buffer), 0);
repeat
Result := Result + Buffer;
FillChar(Buffer, SizeOf(Buffer), 0);
InternetReadFile(UrlHandle, #Buffer, SizeOf(Buffer), BytesRead);
until BytesRead = 0;
InternetCloseHandle(UrlHandle);
end
else
{ UrlHandle is not valid. Raise an exception. }
raise Exception.CreateFmt('Cannot open URL %s', [Url]);
InternetCloseHandle(NetHandle);
end
else
{ NetHandle is not valid. Raise an exception }
raise Exception.Create('Unable to initialize');
end;
but same request when my firend makes with vb10
that works perfect
here is his code example in vb
Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("web-site url" + TextBox2.Text), HttpWebRequest)
httpWebRequest.ContentType = TextBox2.Text.Trim()
Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
Dim text As String = streamReader.ReadToEnd()
Richtextbox1.text = text
what i am doing wrong ?

Answer 1

Sorry but I'm not sure what's wrong with your code but if you're end goal is to load the content from a web page into a memo when why not just use
Uses IdHTTP;
function getContent(url: String): String;
var
http : TIdHTTP;
begin
http := TIdHTTP.Create(nil);
try
Result := http.Get(url);
finally
http.Free;
end;
end;
Memo.Lines.Add(getContent('http://websiteurl.com'));