VPF::Incompatible types - Форум программистов

aktuba

Дата 9.2.2007, 20:36 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата

А попробуй вот так что будет smile

Код


Get('http://www.host.ru/index.do?' + '[I]длинная строка параметров[/I]', 60, EndRequest);

Пробовал - тоже самое... Точнее переменная lUrl появилась после, сначала было как у тебя...

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

VICTAR

Дата 9.2.2007, 20:42 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 37
Всего: 80

aktuba, твой код компилируется без ошибок. Ты уверен, что ошибка в строчке

Код


lUrl := 'http://www.host.ru/index.do?' + '[I]длинная строка параматров[/I]';

ivan219

Дата 9.2.2007, 20:57 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Помойму проблема в самой процедуре так как

Код


Get('http://www.host.ru/index.do?' + '[I]длинная строка параметров[/I]', 60, EndRequest);

Передаёт напрямую в процедуру Get строку WideString

Добавлено @ 21:00
А попробуй зделать так:

Код


lThread := THTTPThread.Create(True, 'get', 'http://www.host.ru/index.do?' + '[I]длинная строка параметров[/I]', nil, ATimeout, AProc);

Get('', 60, EndRequest); или даже так Get(60, EndRequest);

Добавлено @ 21:02

Цитата(VICTAR @ 9.2.2007, 20:42

)

твой код компилируется без ошибок.

Уменя кстати нет какие модули туда надо в писать smile

в Dll и EXE

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

Мой первый сайт и моя первая программа!!!!!

ivan219

Дата 9.2.2007, 22:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Может в вызове процедуры ошибка

Код


procedure Get(const AUrl: WideString; ATimeout: Integer; AProc: TRequestProc); stdcall; external '.\engine\unet.dll';

procedure Get(const AUrl: WideString; ATimeout: Integer; AProc: TRequestProc); stdcall; external '.\engine\unet.dll' name 'Get';

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

Мой первый сайт и моя первая программа!!!!!

aktuba

Дата 10.2.2007, 19:10 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата

aktuba, твой код компилируется без ошибок.

Да, код без ошибок. Если в процедуре Get использовать string - ошибок нет, если WideString - ошибка есть.

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

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