Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ URL \ Взять часть URL, которая следует после названия сайта

Взять часть URL, которая следует после названия сайта

{ 
  InternetCrackUrl() takes a URL as a parameter and breaks it down into components, 
  which are then accessible via the TURLComponents structure. 

  InternetCrackUrl() zerlegt eine URL in seine Komponenten, welche dann ьber die 
  TURLComponents Struktur zugдnglich sind. 
}

 uses
   WinInet;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   aURLC: TURLComponents;
 const
   TEST_URL = 'http://www.swissdelphicenter.ch/de/tipsindex.php';
 begin
   FillChar(aURLC, SizeOf(TURLComponents), 0);
   with aURLC do
   begin
     lpszScheme := nil;
     dwSchemeLength := INTERNET_MAX_SCHEME_LENGTH;
     lpszHostName := nil;
     dwHostNameLength := INTERNET_MAX_HOST_NAME_LENGTH;
     lpszUserName := nil;
     dwUserNameLength := INTERNET_MAX_USER_NAME_LENGTH;
     lpszPassword := nil;
     dwPasswordLength := INTERNET_MAX_PASSWORD_LENGTH;
     lpszUrlPath := nil;
     dwUrlPathLength := INTERNET_MAX_PATH_LENGTH;
     lpszExtraInfo := nil;
     dwExtraInfoLength := INTERNET_MAX_PATH_LENGTH;
     dwStructSize := SizeOf(aURLC);
   end;
   if InternetCrackUrl(PChar(TEST_URL), Length(TEST_URL), 0, aURLC) then
   begin
     ShowMessage(aURLC.lpszUrlPath);
   end;
 end;

Название: Взять часть URL, которая следует после названия сайта
Дата публикации: 2004-09-02 (2325 Прочтено)

 
 

 

Page generation 0.031 seconds