forum.clarionlife.net

Все Ок. Сработало.

Спасибо! Попробую, отпишусь.

Хочу получить содержимое DCT в виде, удобоваримом для EXEL.
При экспорте в текст из DCT Explorer получаем формат XML. Все прекрасно, кроме комментариев на русском языке.
Получается так:
Table Guid="{ca93d1e8-876b-4986-aaaf-a91aaa5ba894}" Ident="1" Name="ALL_VIR" Description="Âûðó÷êà" Prefix="AV ...

Никаких дополнений. Просто использовал функции, относящиеся к подключению через прокси, остальное у меня уже было написано, менять не стал.

Дошли руки попробовать. Все пошло нормально, правда пришлось кое-что изменить под конкретную задачу.
Еще раз спасибо.

Спасибо! Должно помочь. Отпишусь, когда попробую.

Кто подскажет, как в Кларионе можно работать с инетом через прокси?
Используются функции API:
- InternetOpen - проходит без проблем
- InternetOpenUrl и InternetReadFile - требуется авторизация на прокси.
Может кто обошел уже сие препятствие?

Clarion 8 без дополнительных инет-примочек, только WIN API.

Помогает "CLASYSTEMCHARSET=204" в .ENV-файле

Ничего не помогло, но в процессе экспериментов вышел на другое решение, которое работает.
SELECT t.kod_pe, t.gos_nom
FROM
(select kod_pe,gos_nom
FROM avto) AS t
order by kod_pe;
Тоже готовим данные в промежуточной таблице (в данном случае 't') и получаем из нее результат.
Более сложный пример с ...

Приведенный пример это чистый тест.
Необходимость в таких запросах возникает при выборке данных из нескольких таблиц с одновременным применением расчетов, которые в этом случае выполняет сервер и выдает только результаты в объеме намного меньшем, чем при вычислениях на рабочей станции.

В среде PostgreSQL запросы такого типа с созданием промежуточной таблицы выполняются прекрасно, причем и более сложные.
Приведенный пример очень простой.

Clarion 8.9661
База posgtresql

Таблица для результатов запросов
sqlfile FILE,DRIVER('ODBC','/JOINTYPE=''ODBC 3.0'' /NESTING=TRUE'),OWNER(glo:owner),NAME('sqlfile'),PRE(sql),BINDABLE,CREATE,THREAD
Record RECORD,PRE()
mystr CSTRING(200) !
r01 STRING(50) !
.......................................
r20 ...

Может кому пригодится.

utf2txt PROCEDURE (st_in) ! Declare Procedure
d1 SHORT
d2 SHORT
c SHORT
t cstring(max_buffer)
len_str LONG

CODE
clear(t)
j#=0
len_str = len(clip(st_in))
loop i#=1 to len_str
d1 = val(st_in[i#])
IF d1 <= 127
t = t & chr(d1)
ELSE
d2 = val(st_in[i#+1])
CASE d1 ...

%ROOT%\bin\clarion.env надо поправить строку:
CLASYSTEMCHARSET=204

Такие проблемы обычно возникают в случае, если при конвертации приложения страрегия Resizer меняется на Streched, Надо вернуть "RESIZE". Возможно поможет.