Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Портал www.it4business.ru -> Баги и чувства



it4business.ru - проект об IT для бизнеса  

Новые темы IT-форума

Портал www.it4business.ru -> Баги и чувства
2010-05-21 09:47 Pryanik
http://it4business.ru/forum/index.php?act=attach&type=post&id=857

AutomatedQA - Functional Testing -> Ф-ции чтения из INI-файла и записи в INI-файл
2010-05-21 14:24 VitalyD
Предлагаю функции чтения параметра из INI-файла и запись параметра в INI-файл с использованием KERNEL32

Ограничения : нет анализа на корректное имя и на существование INI-файла

##### Код { #####
Private dll_kernel32
Private lib_kernel32
Private SZ_STR_LPSTR_DLL
Private lp_NameFile

' Иницализация для работы с KERNEL32
Sub Init_KERNEL_32
' Defines the dll type
  Set dll_kernel32 = DLL.DefineDLL("KERNEL32")
' Loads the dll.
  Set lib_kernel32 = DLL.Load("KERNEL32")
  
  SZ_STR_LPSTR_DLL = 32768        ' длина LPTSTR

  ' определение ф-ций работы с INI-файлами
  dll_kernel32.DefineProc "GetPrivateProfileStringA", vt_lpstr, vt_lpstr, vt_lpstr, vt_lpstr, vt_i4, vt_lpstr, vt_i4
  dll_kernel32.DefineProc "WritePrivateProfileStringA", vt_lpstr, vt_lpstr, vt_lpstr, vt_lpstr, vt_i4

End Sub

' Иницализация INI-файла
Sub Init_INI (NameIniFile)

  Set lp_NameFile = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
  lp_NameFile.Text = NameIniFile
  
End Sub


' Чтение параметра из INI-файла
'   Section     - секция
'   Parameter   - параметр
'   val_Default - значение оп умолчанию (возвращается, если нет параметра)
' Возврат : значение параметра (если чтение успешное) или val_Default (если чтение безуспешное)  

Function  ReadIniFile (Section, Parameter, val_Default)
  Dim lp_Section, lp_Parameter, lp_Default, lp_ReturnedString, res

  Set lp_Section = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
  lp_Section.Text = Section

  Set lp_Parameter = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
  lp_Parameter.Text = Parameter

  Set lp_Default  = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
  lp_Default.Text = val_Default
    
  Set lp_ReturnedString = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
  
  res = lib_kernel32.GetPrivateProfileStringA(lp_Section, lp_Parameter, lp_Default, lp_ReturnedString, SZ_STR_LPSTR_DLL, lp_NameFile)
  ReadIniFile = lp_ReturnedString.Text  
  
End Function

' Запись value в INI-файл
'   Section     - секция
'   Parameter   - параметр
'   value - значение

Sub WriteIniFile (Section, Parameter, value)
  Dim lp_Section, lp_Parameter, lp_value, res

  Set lp_Section = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
  lp_Section.Text = Section

  Set lp_Parameter = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
  lp_Parameter.Text = Parameter

  Set lp_value  = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
  lp_value.Text = value
    
  res = lib_kernel32.WritePrivateProfileStringA(lp_Section, lp_Parameter, lp_value, lp_NameFile)
  
End sub
##### Код } #####

А вот пример использования функций

##### Код { #####
Sub CallRoutineFromDLL

  ' Иницация работы с DLL
  Init_KERNEL_32

  Init_INI ("c:\a.ini")
  
  s_par = ReadIniFile ("q", "z", "ERROR")

  WriteIniFile "qq", "zz", "1234"

End sub
##### Код } #####

Работа для программистов -> Консультант Инфин Москва 75 000 рубл.
2010-05-21 15:14 Lentochka02
В крупную компанию требуется программист Инфин. В/о, знание основ бухгалтерского и управленческого учета. Опыт работы с системой Инфин от 1 г. (консультация пользователей и доработка системы).
Внедрение системы в новых офисах сети, доработка системы, консультация пользователей. Поддержка работоспособности внедренной системы
ЗАО, 9-18 ч., 5/2, оформление по ТК, белая з/п от 60 000 рубл. (+ система премий), льготное питание. Резюме отправлять на адрес sb-kirsanova@mail.ru , т. (499)155-89-39, ICQ 478-206-688

Работа для программистов -> программист oracle forms от 80 000 рубл. МО, Мытищи
2010-05-21 15:14 Lentochka02
В производственную компанию требуется программист Oracle. в/ о, до 45 л.. Разработка приложений на Oracle – Developer (forms. reports) от 3 л.
Обязанности:
Разработка ПО под нужды компании.
Условия:
Работа в МО (Мытищи). От м. Алтуфьево, Медведково и Мытищи – корпоративный транспорт. Соц пакет: 50% оплата питания, ДМС, бесплатные занятия в тренажерном зале, возможность повышать уровень ин. языка. З/п обсуждается от 80 000 рубл. Резюме присылать на адрес sb-kirsanova@mail.ru ICQ 478-206-688, т. (499)155-89-39

Работа для консультантов и внедренцев -> Консультант Инфин Москва 75 000 рубл.
2010-05-21 15:15 Lentochka02
В крупную компанию требуется программист Инфин. В/о, знание основ бухгалтерского и управленческого учета. Опыт работы с системой Инфин от 1 г. (консультация пользователей и доработка системы).
Внедрение системы в новых офисах сети, доработка системы, консультация пользователей. Поддержка работоспособности внедренной системы
ЗАО, 9-18 ч., 5/2, оформление по ТК, белая з/п от 60 000 рубл. (+ система премий), льготное питание. Резюме отправлять на адрес sb-kirsanova@mail.ru , т. (499)155-89-39, ICQ 478-206-688

Работа для программистов -> программист oracle forms от 80 000 рубл. г. Москва
2010-05-21 15:16 Lentochka02
Крупному банку требуется программист Oracle. Знание Oracle Forms. Опыт работы в банке от 3 л. Знание банковских технологий. Знание одного из направлений: пластиковые карты, РКО, обслуживание юридических лиц, отчетность ЦБ.
Разработка банковского ПО
ЦАО, оформление по ТК. Уровень з/п от 80 000 рубл. (обсуждается с успешными кандидатами)+бесплатные обеды. Резюме отправлять на адрес sb-kirsanova@mail.ru , т. (499)155-89-39, ICQ 478-206-688

AutomatedQA - Functional Testing -> проблема с WPFMenu меню
2010-05-22 00:42 stilet
В ютине Wrapers естьв ф-я cMainWindow() в которой иниилизирован объект this.oMainMenu. Создаю экземпляр класса в ютине General через var oMainWindow = new cMainWindow() и с легкостью доступаю до MainMenu через oMainWindow.oMainMenu, свойство Exists = true. Потом вызываю в этом же юните Runner.CallMethod("Util.VerifyMessage"), после чего сново делаю oMainWindow.oMainMenu, но почему-то свойство Exists = false. Может кто-то с таким уже сталкивался? На данный момент пытаюсь отловить почему меняется значение свойства. Буду благодарен за ответы :)

Клуб тестировщиков -> Тестирование в Новосибирске
2010-05-22 20:30 stricky
Коллеги!
На Devpoint была поднята тема создания комьюнити тестировщиков в Новосибирске и Сибири.

Давайте знакомиться, делиться опытом, впечатлениями о состоявшейся конферешке и пожелания к нашему дальнейшему общению))

Автоматизированное тестирование ПО -> Как сбить пароль на hudsun
2010-05-23 18:23 jamal777
Как сбить пароль на hudsun
я установил пароль перегрузил томкат
теперь я могу войти только по юзерскому логину и не могу зайти в админку.
как сбить этот пароль или ручками создать админскую запись????

Автоматизированное тестирование ПО -> Автоматизация логона в Windows
2010-05-23 21:22 GipsySh
Можно ли автоматизировать выполнение операции Log Off (и последующего потом Log on'а!!!) в Windows?
Сделать логофф автоматически не проблема, а вот как потом залогониться снова?

Суть такая:
Есть скрипт, который выполняет одну часть команд, после которой требуется перелогофф в системе. После перелогоффа выполняется следующая часть команд.

Самый простой способ, конечно, это вынести первую часть команд в один скрипт, вторую часть - в другой скрипт. И потом запускать первый скрипт, вручную делать перелогофф и после этого запускать второй скрипт. Но в идеале было бы здОрово, если бы все делалось автоматически и не требовало ручного вмашательства... Только вот, кажется мне, что это все-таки не реально, но, может, кто-то подскажется какой-нибудь вариант.

Оставайтесь на связи, мы работаем для вас!


© 2007 | IT для бизнеса: it4business.ru


В избранное