الغاء اصدار قديم لعميل

[onexite]

PHP كود :

uses WinInet;

procedure TForm3.btn1Click(Sender: TObject);
var i:SmallInt;
list:TStringList;
 tn1: TTreeNode;
begin
list:=TStringList.Create;
list.DelimitedText:=GetUrl('http://www.site.com/file.txt');
list.Delimiter:=#13;
with tv1.Items do
  begin
    Clear;
    tn1 := Add(nil, 'الاعضاء');
    for I := 0 to list.Count-1 do
    AddChild(tn1,list[i]);
  end;
  list.Free;

end;

function TForm3.GetUrl(Url: string): string;
const
BuffSize = 2048;
var
  hInter   : HINTERNET;
  UrlHandle: HINTERNET;
  BytesRead: Cardinal;
  Buffer   : Pointer;
begin
  Result:='';
  hInter := InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(hInter) then
  begin
    GetMem(Buffer,BuffSize);
    try
        UrlHandle := InternetOpenUrl(hInter, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
        if Assigned(UrlHandle) then
        begin
          InternetReadFile(UrlHandle, Buffer, BuffSize, BytesRead);
          if BytesRead>0 then
           SetString(Result, PAnsiChar(Buffer), BytesRead);
           InternetCloseHandle(UrlHandle);
        end;
    finally
      FreeMem(Buffer);
    end;
    InternetCloseHandle(hInter);
  end
end;