Отправлено: 08.01.07 15:39. Заголовок: Замена CT функций

Всех с Рождеством и прошедшим Новым Годом !
Есть ли кто из "трудоголиков" ?

Помогаю тут переделывать прогу и столкнулся с нехваткой СТ-функций.
Подскажите пожалуйста им замену.

ENVPARAM() //Возвращает содержимое среды переменных DOS.
TRUENAME() //Преобразует заданный путь доступа к стандартной форме.

NNETCAPACT() //Возвращает признак переадресации печати на сетевые принтер или очередь.
NNETCAPFLU() //Оформляет текущее задание для распечатки сетевым принтером.
NNETSDATE() //Возвращает дату, установленную на текущем файл-сервере.

Заранее спасибо.

 Отправлено: 14.01.07 12:10. Заголовок: Re:

Вопрос с функцией TRUENAME() - снимается, нашел здесь в другой теме.
А как быть с другими функциями для xHarboura ?

 Отправлено: 15.01.07 10:43. Заголовок: Re:

TRUENAME уже есть в новом релизе

Функции серии NNET*() ведь относятся к сетиям netware ? Будут идеи как их реализовать ?

ENVPARAM держи

#pragma BEGINDUMP

#include "hbapi.h"

#ifdef HB_OS_WIN_32
#include <windows.h>
#endif

#define CRLF "\x0D\x0A"

HB_FUNC( ENVPARAM )
{
#if defined(HB_OS_WIN_32)
{

char *buffer;
LPVOID lpEnviron = GetEnvironmentStrings();
char *sCurEnv;
int buffsize = 0;

// scan strings first and add up total size
for (sCurEnv = (LPTSTR) lpEnviron; *sCurEnv; sCurEnv++)
{
buffsize += (strlen( (char*) sCurEnv) + 2 );
while (*sCurEnv)
*sCurEnv++;
}

buffer = ( char * ) hb_xalloc( buffsize + 1 );
buffer[ 0 ] = 0;

for (sCurEnv = (LPTSTR) lpEnviron; *sCurEnv; sCurEnv++)
{

strcat( buffer, (char*) sCurEnv );
strcat( buffer, CRLF );

while (*sCurEnv)
*sCurEnv++;
}

FreeEnvironmentStrings( (LPCH) lpEnviron);

buffer[ buffsize ] = 0;
hb_retclenAdopt(buffer, buffsize);
}

#endif
}

#pragma ENDDUMP

 Отправлено: 15.01.07 21:53. Заголовок: Re:

Паша спасибо большое !
Чтоб мы делали без поддержки друзей ?

 Отправлено: 15.01.07 22:37. Заголовок: Re:

TOKENUPPER()
Преобразует первые буквы задаваемых элементов в прописные.
не срабатывает с кириллицей в обрабатываемой строке..

hb_SetCodepage( "RU1251" ) указано

регистр не меняется...


альтернативное решение то найдено, но хотелось бы чтобы CT-функции обработки строк работали как в Клиппере

 Отправлено: 16.01.07 10:50. Заголовок: Re:

Проверил TokenUpper - работает

REQUEST HB_CODEPAGE_RU1251 не забыл ?

Но в релизе 0.99.60 этого еще не было, качай новый релиз

 Отправлено: 16.01.07 12:59. Заголовок: Re:

Паша, подскажи "правильное на сегодня" инициализацию программы для русского языка.
А то смотрю какие-то новые команды всплывают.