[beetlejuice541]

Как просто получить код страницы,я знаю,но вот беда в ссылке есть символ ★,а delphi его не знает и ставит ?=>ссылка не правильная,как все же можно получить код этой страницы?

[Bargest]

Закодировать через %HEX?

[beetlejuice541]

можно подробнее?

[Bargest]

А гугл для кого делался?
http://rsdn.ru/forum/delphi/3813423.all

EDIT: в UTF-8 этот символ кодируется как '%E2%98%85'.
http://www.codenet.ru/services/urlencode-urldecode/

[Rerter]

Сообщение от beetlejuice541

Как просто получить код страницы,я знаю,но вот беда в ссылке есть символ ★,а delphi его не знает и ставит ?=>ссылка не правильная,как все же можно получить код этой страницы?

Блин у меня где-то валялся кусок кода на Delphi 7, по кнопке выводилась в Memo код страницы, могу скинуть, надо только найти.

[Rerter]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
   WebBrowser1.Navigate( 'http://ForProg.ucoz.kz/' );
   WebBrowser2.Navigate( 'http://ForProg.ucoz.kz/' );
end;

procedure GetHtmlCode( WebBrowser: TWebBrowser; FileName: string );
var
  htmlDoc: IHtmlDocument2;
  PersistFile: IPersistFile;
begin
   htmlDoc := WebBrowser.document as IHtmlDocument2;
   PersistFile := HTMLDoc as IPersistFile;
   PersistFile.Save( StringToOleStr( FileName ), true );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetHtmlCode( WebBrowser1, 'C:\HTML.txt' );
  ShellExecute(Handle, 'open', 'C:\HTML.txt', nil, nil, SW_SHOW);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Document: IHtmlDocument2;
begin
  Document := WebBrowser2.Document as IHtmlDocument2;
  if Document <> nil then
     Memo1.Text :=( Document.all.Item( NULL, 0) as IHtmlElement ).OuterHTML;
end;// Ìû ïîñìîòðåëè ñàìûå ïðîñòûå ðàáîòû-ïðèìåðû ñ èíòåðíåòîì. Ñåé÷àñ ïîñìîòðèì êàê ñêà÷èâàòü ôàéë èç ñåòè èíòåðíåò.

//Ñäåëàåì äëÿ íà÷àëà ôóíêöèþ
function GetInetFile ( const fileURL, FileName:string ): boolean;
const
  BufferSize = 1024;
var
 hSession, hURL:Hinternet;
 Buffer:array[1..BufferSize] of byte;
 BufferLen: DWORD;
 f: file;
 sAppName: string;
begin
  Result :=false;
  sAppName := ExtractFileName( Application.ExeName );
  hsession := InternetOpen( PChar( sAppName),
              INTERNET_OPEN_TYPE_PRECONFIG,
              nil, nil, 0 );
  try
   hURL:= InternetOpenURL( hSession, PChar( fileURL ), nil, 0, 0, 0, 0 );
   try
    AssignFile(f, FileName );
    Rewrite(f, 1);
    repeat
    InternetReadFile( hURL, @Buffer, SizeOff( Buffer ), BufferLen );
    BlockWrite(f, Buffer, BufferLen )
until BufferLen = 0;
CloseFile( f );
Result :=true;
finally
  InternetCloseHandle ( hURL );
end
finally
  InternetCloseHandle( hSession );
end
end;
//Êîíåö ôóíêöèè.

procedure TForm1.Button3Click(Sender: TObject);
var
FileOnNet, LocalFileName: string;
begin
//Ïîëíûé ïóòü ê ôàéëó.
FileOnNet :='http://ForProg.ucoz.kz/setup.rar';
//Èìÿ, ïîä êîòîðûì, áóäåò ñîõðàí¸í ôàéë.
LocalFileName:='FileDownload.rar';
If GetInetFile( FileOnNet, LocalFileName ) then
 ShowMessage('Ôàéë ñêà÷àí')
 else
 ShowMessage('Ôàéë íå ñêà÷àí');
end;

end.