Отправлено: 08.12.14 16:49. Заголовок: Вопрос по кодировке

Из своей программы вызываю ДРУГУЮ (свою)
Вызываю примерно так (упростил)

 
 sklad:=hb_oemtoansi(sklad) 
 WAPI_ShellExecute(WAPI_GetDeskTopWindow() , "open",; 
  hb_CurDrive()+":\"+CurDir()+"\"+"blankfill.exe",; 
   sklad , , 0 ) //0 
  
 Прога Blankfill заполняет бланк EXCEL и шлет его на мыло. 
 Но передаваемая переменная sklad попадает в форму EXCEL черт знает в какой кодировке. 
 Что не так делаю ? 
  
 

 Отправлено: 08.12.14 17:14. Заголовок: Проще примерчик для ..

Проще примерчик для понимания.

 
 Proc Main(dd) 
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
 *REQUEST HB_CODEPAGE_RU1251 
 *hb_cdpSelect( "RU1251" ) 
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
  
  
  
  ? dd 
  
 wait 
 Return 
  
 

Запускаю TEST Привет
Получаю ??????
Пробовал hb_ansitooem и обратку , не помогает.
А в Clipper нормик ;)

 Отправлено: 08.12.14 23:45. Заголовок: Dima передай через ..

Dima
передай через *.mem (SAVE AS ...) файл или через txt file

 Отправлено: 08.12.14 23:49. Заголовок: SergKis пишет: пере..

SergKis пишет:

цитата:

передай через *.mem (SAVE AS ...) файл или через txt file

Такая мысль возникала или через FT_SAVEARR , но думал можно так решить проблему.
Спасибо !
Думаю ;)

 Отправлено: 09.12.14 15:24. Заголовок: Получается передать ..

Получается передать параметр на кириллице в командной строке я могу программе
а вот принять в нормальном виде уже фиг

 Отправлено: 09.12.14 16:35. Заголовок: Дима, привет. Попроб..

Дима, привет.
Попробуй выловить через номер параметра
? hb_argV(1)

PS Твой тест это прошло

FUNCTION Main( ... )
REQUEST HB_CODEPAGE_RU1251
hb_cdpSelect( "RU1251" )

? hb_argV(1)
? hb_CmdLine()

RETURN NIL

 Отправлено: 09.12.14 17:02. Заголовок: Haz Жесть :sm36: ..

Haz
Жесть
Работает что надо. Спасибо Игорь !