Visual Basic 6.0 - Проверить и запустить
Re: Проверить и запустить
From: "Sergei Ho" <calendarman [@] mtu-net.ru>
"Dmitriy Kozyrev" <Dmitriy.Kozyrev [@] p148.f11.n5023.z2.fidonet.org> wrote in message news:682008679 [@] p148.f11.n5023.z2.ftn...
> Мы где-то виделись, Sergei?
>
> 06 Jan 04 20:05:44 в RU.VISUAL.BASIC Sergei Ho -> All:
>
> SH> Известен путь к некоему EXE.
> SH> Требуется проверить запущена ли эта программа.
>
> Поковыряй мой пример.
Я получил список запущенных EXE,
но по какому они пути не видно.
Программа может иметь EXE,
совпадающий по назв. с многими др.
calc.exe, например. Как узнать, что запущен именно
тот, который по конкретному пути лежит?
Сергей.
* Origin: MTU-Intel ISP (2:5020/400)
Re: Создать эллиптический регион
From: "Sergey Merzlikin" <sm [@] smsoft.ru>
> SM> поверх часовой и минутной, но если раскомментарить закомментаренные
> SM> строки, секундная стрелка становится видимой.
> Видимой, но некрасивой (2-3 пиксела в толщину, причём толщина меняется при
> движении); поэтому тот код и закомментирован.
Hету ее там. Совсем. Только на фоне стрелок.
* Origin: Sovintel (2:5020/400)
Re: Каллбак с другой нити
From: "Sergey Merzlikin" <sm [@] smsoft.ru>
>
> У меня есть dll-ка, которой передаётся адрес процедуры, и она её вызывает
> асинхронно (с другой нити). Возможно ли как-то ей воспользоваться, или
> придётся переписывать её, чтоб та кидала сообщения в моё окно?
>
По теории в другом потоке VB6-программы нормально работает только арифметика
и API, описанные в Typelib. Для связи с другими потоками лучше использовать
что-либо типа InterlockedIncrement, SetEvent и т. д.
--
Сергей Мерзликин
http://www.smsoft.ru/ru/
* Origin: Sovintel (2:5020/400)
Typeless data
||*()*|| Ах это вы, All ? А я вас не узнал без санитара...
По совету одного из читателей эхи я работаю сейчас с СУБД SQLite. В ней в принципе кроме индексных полей все остальные сабжевые.
Можно ли поместить в запись какое-нибуть изображение?
Т.е. в picturebox есть определенное изобрадение, а я хочу его поместить в одно поле БД.
Конструкции типа
Set oDrs.Photo = Pic1.Picture
приводят к тому, что в БД помещается только хендл...
I'll be back, All !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.
* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)
MaskColor
гTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT¬
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦LL=Привет вам, кибер-виртуалы!=--¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
L¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦-
Эх, давненько я тут не был! Появился у меня вопpос: в пpоекте используется
довольно известный DevPower TransImage ocx. Он делает каpтинки с пpозpачным
фоном. Так вот есть у него свойство, котоpое пpозpачность и задаёт. Появилась
такая бага: ставлю ему цвет - на одной машине всё воспpинимается пpавильно,
пpозpачность есть, все дела. Hа дpугой - не пpозpачна и хоть ты тpесни. Ладно,
думаю. Ставлю такой код:
TransImage.MaskColor = TransImage.Point(1,1)
Hа 1,1 по любому фоновый цвет. И чтобы вы думали? Hе pаботает! С чем это
свяанно может быть?
[Киберпанки, всех стран - объединяйтесь!]-[(A'SC) 2,2k]-[VB6]-[SpiritNet]
* Origin: УТОМЛЁHHОЕ СОЛHЦЕвскими (2:5020/2013.74)
Re: Создать эллиптический регион
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Sergey!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Tue, 6 Jan 2004
23:49:09 +0000 (UTC):
SM>>> поверх часовой и минутной, но если раскомментарить закомментаренные
SM>>> строки, секундная стрелка становится видимой.
AS>> Видимой, но некрасивой (2-3 пиксела в толщину, причём толщина меняется при
AS>> движении); поэтому тот код и закомментирован.
SM> Hету ее там. Совсем. Только на фоне стрелок.
Сейчас - нету совсем. Из вариантов "хреново или никак" я выбрал последнее.
--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Typeless data
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All" <fido7.ru.visual.basic [@] talk.ru>to All on Wed, 07 Jan 2004 06:16:04 +0300:
AB> Можно ли поместить в запись какое-нибуть изображение?
Dim pb As PropertyBag
pb.WriteProperty "Picture", Picture1.Picture
DoWhateverWith pb.Contents
--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)
Re: фиберы
From: "Sergey Merzlikin" <sm [@] smsoft.ru>
Думаю, что в VB5/6 это работать не будет. В силу того, что каждый
Fiber работает в отдельном потоке, будут те же проблемы доступа к TLS, что и
при многопоточности. Да и преимуществ особых не вижу, поскольку переключать
Fiber'ы нужно вручную, того же эффекта можно добиться при грамотном
использовании DoEvents.
--
Сергей Мерзликин
http://www.smsoft.ru/ru/
sm [@] smsoft.ru
>
> Кто-нибудь работал с сабжем на VB?
> В МСДH пишут, что это дешёвый и лёгкий способ добиться одновременного
> выполнения нескольких задач, который не требует явной синхронизации и не
> конфликтует с нереентрабельным нутром VB. Однако ни одного примера работы
с
> ними на VB я так и не видел. Они есть?
>
* Origin: Sovintel (2:5020/400)
Typeless data
||*()*|| Ах это вы, A ? А я вас не узнал без санитара...
07 янв 04 года ты писал(а) к мне:
[...skipped...]
AB>> Можно ли поместить в запись какое-нибуть изображение?
AS> Dim pb As PropertyBag
AS> pb.WriteProperty "Picture", Picture1.Picture
AS> DoWhateverWith pb.Contents
Увы - не помогает.
То же саое : Object variable or With block variable not set
I'll be back, A. !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.
* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)
Re: фиберы
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Sergey!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Wed, 7 Jan 2004
16:27:30 +0000 (UTC):
SM> Думаю, что в VB5/6 это работать не будет. В силу того, что каждый
SM> Fiber работает в отдельном потоке, будут те же проблемы доступа к TLS,
SM> что и при многопоточности.
Hаоборот, все фиберы работают в одной нити (дать ссылку на МСДH или на слово поверишь?), поэтому "должно бы" работать.
Факт же в том, что почему-то нет. Даже в VB5, где CreateThread падает не сразу, SwitchToFiber вешает машину намертво (МЕ), или же
только падает (2000). Что-то я, наверное, делаю не так, но что? Вот код:
=========Beginning of the citation==============
Option Explicit
Public Declare Function CreateFiber Lib "kernel32.dll" (ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lParam As
Long) As Long
Public Declare Sub DeleteFiber Lib "kernel32.dll" (lpFiber As Any)
Public Declare Function ConvertThreadToFiber Lib "kernel32.dll" (ByVal lParam As Long) As Long
Public Declare Sub SwitchToFiber Lib "kernel32.dll" (lpFiber As Any)
Dim pMainFiber As Long
Sub Main()
Dim pNewFiber As Long
pMainFiber = ConvertThreadToFiber(0)
pNewFiber = CreateFiber(0, AddressOf FiberProc, 1)
SwitchToFiber pNewFiber
DeleteFiber pNewFiber
End Sub
Sub FiberProc(ByVal lParam As Long)
SwitchToFiber pMainFiber
End Sub
=========The end of the citation================
SM> Да и преимуществ особых не вижу, поскольку переключать
SM> Fiber'ы нужно вручную, того же эффекта можно добиться при грамотном
SM> использовании DoEvents.
Вовсе нет. При использовании DoEvents "по простому" начнёт работать любое событие, которое захочет, вплоть до того же, которое
DoEvents вызвало. Приходится иметь по флагу для каждого события, который проверяется на входе в обработчик, и устанавливать нужные
флаги перед вызовом DoEvents. С SwitchToFiber же я могу явно указать, чему дать продолжить работать.
--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)