Можно ли через ФОКС узнать загрузку ЦП?
... и в частности запущенной программы написанной в ФОКСе.
пр. KONVERT.EXE
Если можно, подкиньте примерчик...
Заранее благодарен...

Sea_Cat,
И почем цена на дрова в бухте Тихой?
Я так понимаю, Вы в этой области - специалист.

tanglir,
Благодарю за ответ!

Sea_Cat,

Вроде бы можно и по другому узнать, но через ФОКС - лучше!!!!!!!!
Не правда ли ???????


***********
* пример получения курса валют ЦБ РФ с сайта http://web.cbr.ru/
***********
SET TALK OFF
* создаем объект на основе пакета SOAP 3.0
o=CREATEOBJECT("MSSoap.SoapClient30")
* соединяемся с удаленным источником данных
* в качестве параметра стандартного метода MSSoapInit задается URL
o.MSSoapInit("http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx?WSDL")
* вызываем функцию данного Web Service как самую обычную функцию FoxPro
* Данная функция запрашивет курсы валют как DataSet
*o.DailyInfo()
loexception=NULL && устанавливаем объект, в котором будем отлавливать ошибки
tt=''
* применяем конструкцию TRY..CATCH чтобы возможные проблемы не повлияли на наше
* приложение. В принципе все можно было "упрятать" в эту конструкцию
TRY
tt=o.GetCursOnDate(DATE()) && параметр - текущая дата date()
CATCH TO loexception && если будет ошибка, то программа нам ее распечатает
? loexception.MESSAGE
? loexception.ERRORNO
ENDTRY

*? tt && если убрать здесь комментарий то на экране Вы увидите в случае успеха тип (Object)

IF ISNULL(loexception) && если не было ошибок, то продолжим
lcXML=tt.ITEM(0).parentnode.XML &&
* ? lcXML && если убрать здесь комментарий то на экране Вы увидите принятый Вами XML файл
* STRTOFILE(lcXML,'aaa.xml') && можно записать XML в файл на диск
* для дальнейшей работы создаем XML Adapter
LOCAL oXA AS XMLADAPTER
oXA = CREATEOBJECT("XMLAdapter")
* загружаем полученную информацию в созданный адаптер
oXA.LOADXML(lcXML,.F.,.T.)
IF USED('CURS')
USE IN CURS
ENDIF
* создаем таблицу из адаптера с названием CURS
oXA.TABLES[1].TOCURSOR(.F.,"CURS")
* немного поработаем над полученной таблицей для красоты
* к сожалению в 8 версии неправильно работает команда ALTER TABLE
* по этому применим дополнительный SELECT
IF VERSION(5)=800
SELECT SPACE(30) AS VNAME, 0000.0 AS VNOM ,000.0000 AS VCURS , SPACE(3) AS VCHCODE ;
FROM CURS WHERE 2=1 ;
INTO CURSOR NEWCURS NOFILTER ;
UNION ALL ;
SELECT MLINE(VNAME,1), VNOM,VCURS , MLINE(VCHCODE,1) ;
FROM CURS
ELSE
ALTER TABLE CURS ALTER COLUMN VNAME C(30)
ALTER TABLE CURS ALTER COLUMN VCHCODE C(3)
ALTER TABLE CURS ALTER COLUMN VNOM N(5,2)
ALTER TABLE CURS ALTER COLUMN VCURS N(8,4)
ENDIF

BROWSE && смотрим, что получили

ENDIF
* как обычно чистим за собой
RELEASE o
CLOSE DATABASES

Судя по колличеству просмотров этого вопроса, он интересен многим.....

АВТОР: Игорь Горбонос,
"""" З.Ы. Как-же все любят халяву, так что даже искать не хотят """"""

----- ВОТ ЭТО В САМУЮ ТОЧКУ...... )))) я на счет ХАЛЯВЫ....

Игорь Горбонос,
Учитель, блин....

Guest12345,
Благодарю !

Guest12345,
Огромное спасибо!
Вы вызываете уважение....еще раз спасибо......

Guest12345,
Благодаря таким людям, FoxPro будет жить и развиваться дальше.....

Sea_Cat,
Все до безумия просто. При конвертации данных из файлов большого обьема грузится процессор, и через какое-то время на ноутбуке вентилятор начинает "ЖУЖЖЖАТЬ". Ехать менять вентилятор или включить ПАУЗУ в программе - вот в чем вопрос.....
Но тем не менее, есть на форуме люди, которые данной разработке найдут применение...

justITGoodenGuest12345,
Благодаря таким людям, FoxPro будет жить и развиваться дальше.....

как жаль, что Вы ошибаетесь...
похоронили давно, одной поддержкой живы мы

Не знаю, не знаю.. Лично для меня, ФОКСПРО иногда облегчает жизнь и очень сильно...(я не программист, не сис.админ, и не "компьютерный гений")... использую исключительно для решения личных задач...
Поэтому я всегда благодарен людям, которые помогают ДЕЛЬНЫМ советом....

rewareGooden
Не знаю, не знаю.. Лично для меня, ФОКСПРО иногда облегчает жизнь и очень сильно...(я не программист, не сис.админ, и не "компьютерный гений")... использую исключительно для решения личных задач...
Поэтому я всегда благодарен людям, которые помогают ДЕЛЬНЫМ советом....

Охладите свой пыл. Во-первых, VFP есть СУБД и не следует привинчивать к своему приложению несвойственные для нее задачи. Во-вторых, предложенный вам (и с восторгом воспринятый) вариант с использованием WMI просто не заработает под Win98. В-третьих, XAndy уже верно заметил, что не стоит полностью доверять рапортам винды независимо от того, какими средствами они получены. Лучше доверьтесь жужжанию своего кулера и замените его, наконец :)

Господа! Для меня VFP - это единственный язык программирования, который я немного знаю....
А данная прцедура мне, лично, помогла. Но это никого не обязывает контролировать загрузку своего процессора только таким методом и тем более, вставлять в модуль своих программ.
Я не пишу программы для общего использования, нет. Исключительно для выполнения какой-то определенной задачи.
PS. У меня есть товарищ, писатель. Так вот он в своей работе, тоже использует VFP.