VPF::Исключения в консоли - Форум программистов

Rondo

Дата 18.1.2007, 08:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Столкнулся с проблемой в консольном приложении.
Есть у меня там 1 процедура, которая читает буфер обмена

Код


Uses KOL;
...
procedure MyProc;
var
  s: string;
begin
  s := Clipboard2Text
end;

Если например в момент чтения буфера там лежит не текст, то приложение вылетает с ошибкой..
try .. except не помогает. smile

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

Начинающий кодер

Yanis

Дата 18.1.2007, 09:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

Rondo
Используй напрямую WinAPI или TClipboard из VCL.

Добавлено @ 09:50
А Clipboard2Text стандартная функция KOL?

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

*щёлк*

Rondo

Дата 18.1.2007, 10:26 (ссылка)

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

Загрузка ...

Бывалый

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

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

Да, это стандартная функция KOL

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

Начинающий кодер

Snowy

Дата 18.1.2007, 11:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

А так

Код


  if ClipboardHasText then s := Clipboard2Text
  else s := '';

Добавлено @ 12:00
Хотя это одна малина.
Не вижу никаких причин для вылета - нормальная функция.
Попробуй по F8 пройтись.
Думаю, что проблема не в этой функции, а дальше - когда пытаешься работать с текстом.

Добавлено @ 12:06
Проверил:

Код

Program Project1;

{$APPTYPE CONSOLE}

uses KOL;

var
  s: string;
begin
  s := Clipboard2Text;
  WriteLn(s);
end.

Работает корректно без каких-либо проблем.

Rondo

Дата 19.1.2007, 05:39 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо Snowy, помагло smile

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

Начинающий кодер

Yanis

Дата 19.1.2007, 18:25 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Rondo @ 19.1.2007, 06:39

)

Спасибо Snowy, помагло

Интересно, что помогло? Код идентичный...

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

*щёлк*

Rondo

Дата 20.1.2007, 04:50 (ссылка)

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

Загрузка ...

Бывалый

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

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

ClipBrd не использую, нужно было проверить переменную на наличие текста. Ну и косячок был с кодом ниже smile

Это сообщение отредактировал(а) Rondo - 20.1.2007, 04:50

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

Начинающий кодер

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