ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / UPPER
6 сообщений из 6, страница 1 из 1
UPPER
    #40126528
jack_vosmerkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jack_vosmerkin
Гость
сурс: 10595275

перепесал на д11 старую процедуру но кажись неправильно

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure SQLite3_UPPER(context: Pointer; argc: Integer; argv: PPointer); cdecl;
var
  a, r: string;
begin
  case sqlite3_value_type(argv^) of
    SQLITE_NULL: sqlite3_result_null(context);
    else
    begin
      a := UTF8ToWideString(sqlite3_value_text(argv^));
      r := AnsiUpperCase(a);
      sqlite3_result_text(context, Pointer(r), Length(r), TResultDestructor(SQLITE_TRANSIENT));
    end;
  end;
end;




вызываю
Код: pascal
1.
sqlite3_create_function(FDConnection1, 'UPPER', 1, SQLITE_UTF8, nil, @SQLite3_UPPER, nil, nil);



в отве получаю
авторAccess violation at address 044569DB in module 'sqlite3.dll'. Read of address 2E007400.

почему?
...
Рейтинг: 0 / 0
14.01.2022, 11:36
| Ответить | Цитировать | Написать  
UPPER
    #40126530
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
jack_vosmerkin,

чет по коду вообще не понятно

авторcontext: Pointer
авторsqlite3_result_text(context
авторsqlite3_create_function(FDConnection1

и так далее ... Pointer(r) vs 'UPPER'...


кто ж тебя знает, что ты и где переделал...
...
Рейтинг: 0 / 0
14.01.2022, 11:43
| Ответить | Цитировать | Написать  
UPPER
    #40126532
jack_vosmerkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jack_vosmerkin
Гость
конечно напасть легче чем ссылку из первой строки открыть но вопрос в другом сейчас
...
Рейтинг: 0 / 0
14.01.2022, 11:52
| Ответить | Цитировать | Написать  
UPPER
    #40126709
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure SQLite3_UPPER(context: Pointer; argc: Integer; argv: PPointer); cdecl;
var
  a, r: UTF8String;
begin
  case sqlite3_value_type(argv^) of
    SQLITE_NULL: sqlite3_result_null(context);
    else
    begin
      a := sqlite3_value_text(argv^);
      r := AnsiUpperCase(a);
      sqlite3_result_text(context, Pointer(r), Length(r), TResultDestructor(SQLITE_TRANSIENT));
    end;
  end;
end;
...
Рейтинг: 0 / 0
14.01.2022, 18:16
| Ответить | Цитировать | Написать  
UPPER
    #40126711
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Может, лучше UTF8UpperCase использовать?..
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
14.01.2022, 18:23
| Ответить | Цитировать | Написать  
UPPER
    #40127721
527470
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
527470
Гость
Уверены что тут

sqlite3_create_function(FDConnection1, 'UPPER', 1, SQLITE_UTF8, nil, @SQLite3_UPPER, nil, nil);

прямо TFDConnection нужно передавать?

Почему не воспользуетесь компонентом TFDSQLiteFunction?
...
Рейтинг: 0 / 0
19.01.2022, 11:51
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / UPPER
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]