VPF::функция не хочет работать - Форум программистов

Foley

Дата 25.3.2006, 01:01 (ссылка)

(нет голосов)

Загрузка ...

Фсемба Яцца

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: 2
Всего: 7

Есть у меня функция, работала-работала и перестала работать, заманался блин уже, begin...end, try...except...end, и т.п. закрыты все, но если раньше работала функция, то теперь просто выдает ошибку что мол не найдена.
вот код функции:

Код


uses wininet;
...
function CheckUrl(url: string): boolean;
var
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword;
  dwcode: array [1..20] of char;
  res: pchar;
begin
  if pos('http://', lowercase(url)) = 0 then
    url := 'http://'+url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if assigned(hsession) then
  begin
    hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    result := (res = '200') or (res = '302');
    if assigned(hfile) then
      InternetCloseHandle(hfile);
    InternetCloseHandle(hsession);
  end;
end;

проверяет ест ли такой адрес.

Sunvas

Дата 25.3.2006, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Хэ-хэ. Вот я увидел что функция у тебя-то не описана. Если ты ее вызываешь из другого юнита (не с того, где эта функция есть), то пиши ее в одном из разделов (private, public).
Если же ты ее вызываешь из одного и того самого юнита, то просто перемести ее над всеми другими функциями - сразу после строчки "{$R *.dfm}".
И все!

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »