Взять часть URL, которая следует после названия сайтаDelphi , Интернет и Сети , URLВзять часть URL, которая следует после названия сайта
Оформил: DeeCo { 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, которая следует после названия сайта раздела Интернет и Сети URL может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |