VPF::Где мне найти PushKey unit? - Форум программистов

eViper

Дата 31.5.2013, 16:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте. Пытаюсь заполнить INPUT TYPE="file" в TWebbrowser. Наткнулся на тему http://articles.org.ru/cn/showdetail.php?cid=7410
Ссылка там нерабочая. У кого нибудь остался этот unit?=)

Poseidon

Дата 31.5.2013, 17:44 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Этот?

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

eViper

Дата 31.5.2013, 19:02 (ссылка)

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

Загрузка ...

Новичок

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

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

надо попробовать..

eViper

Дата 1.6.2013, 10:12 (ссылка)

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

Загрузка ...

Новичок

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

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

все бы ничего но выдает ошибку при компиляции

Код


procedure PushAKey(ch:string);
var Vk : Integer;
Scan : Integer;
charz,
oemchar : array [0..1] of Char;
begin
// Get the virtual key code for this character
Vk:= VkKeyScan(ch[1]);

// Get the scan code for this key
StrPCopy(charz,ch);
CharToOem(charz, oemchar); // Тут ошибка 
Scan:= OemKeyScan(Ord(oemchar[0]));

// Press the key
PressKey(Vk, Scan);
End;

Если честно так и не понял откуда ноги растут.

Чучмек

Дата 1.6.2013, 16:17 (ссылка)

(голосов:1)

Загрузка ...

НЭТ БИЛЭТ

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

Репутация: 14
Всего: 41

Цитата(eViper @ 1.6.2013, 10:12

)

все бы ничего но выдает ошибку при компиляции

Цитата(Akella @ 28.6.2012, 11:53

)

Обязательно предоставьте полный текст ошибки. smile

http://forum.vingrad.ru/index.php?showtopi...t&p=2501007

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

умную мысль держи при себе, а дурной - поделись с другими

eViper

Дата 1.6.2013, 19:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Sorry.

[DCC Error] PushKey.pas(124): E2010 Incompatible types: 'PAnsiChar' and 'array[0..1] of Char'
[DCC Fatal Error] Unit2.pas(7): F2063 Could not compile used unit 'PushKey.pas'
Failed
Elapsed time: 00:00:00.1

и указывает на эту строку

Код


CharToOem(charz, oemchar);

Это сообщение отредактировал(а) eViper - 1.6.2013, 20:21

Poseidon

Дата 1.6.2013, 20:22 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Обьяви oemchar как PAnsiChar. Дай компилятору то, что он хочет smile

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

eViper

Дата 1.6.2013, 21:09 (ссылка)

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

Загрузка ...

Новичок

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

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

Сделал все как в примере. ссылка
Заменил тип переменной oemchar на PAnsiChar. Компиляция прошла успешно но вот работать программа отказалась.

Код


Access violation at address 76e3f116 in module 'KERNELBAE.dll'. Write of address 00406d16.

Кто нибудь в курсе? Мб пример изначально был нерабочий?
И есть ли решения проблемы с заполнением <input type="file">?

Это сообщение отредактировал(а) eViper - 1.6.2013, 21:11

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