Visual Basic 6.0 - resorce file

Привет, Andrey!

* 05 Hоя 03 14:34, Andrey Prokhorov писал(а) All




Альтернатива? В WinAMP`е 3 это как-то сделанно при помощи xml-файла. Hо реализация этого для меня остаётся за кадром.
Vlad
* Origin: Bce,сказаное хорошо,-мое,кем б оно ни было сказано (2:5061/120.41)




Hello, Vlad!
You wrote to Andrey Prokhorov on Thu, 06 Nov 2003 22:39:28 +0300:







А что тут за кадром? Рассматривай XML как структурированное хранилище. Можно
обычными запросами (типа SQL) сделать выборку по заданному критерию (языку)
и получить значения строк, которые нужно прописать в элементы форм,
подлежащих локализации.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)


Мы где-то виделись, Andrew?







==========================================================================
* Area: RU.VISUAL.BASIC
* From: Dmitriy Kozyrev, 2:5023/11.148 (Thu, 23 Oct 2003 20:41:10 +0300)
* To: Sergey Ozyakov
* Subj: Re: console
==========================================================================
Мы где-то виделись, Sergey?











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

============================== Смотри ниже ===============================
Function RunCGIApp(CGIApp As String, InData As String, OutData As String,
ErrData As String) As Boolean
Dim pi As PROCESS_INFORMATION, si As STARTUPINFO
Dim sa As SECURITY_ATTRIBUTES
Dim Ret As Long, BytesRW&, BytesToWrite&, BytesTotal&, CmdLine$
Dim hInRead&, hInWrite&, hOutRead&, hOutWrite&, hErrRead&, hErrWrite&

sa.nLength = Len(sa)
sa.bInheritHandle = 1
sa.lpSecurityDescriptor = 0


Ret = CreatePipe(hInRead, hInWrite, sa, 4096)
If Ret = 0 Then GoTo IntErr
End If
Ret = CreatePipe(hOutRead, hOutWrite, sa, AppData.PipeBufferSize)
If Ret = 0 Then GoTo IntErr
Ret = CreatePipe(hErrRead, hErrWrite, sa, AppData.PipeBufferSize)
If Ret = 0 Then GoTo IntErr

With si
.cb = Len(si)
.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
.hStdInput = hInRead
.hStdOutput = hOutWrite
.hStdError = hErrWrite
.wShowWindow = 0
End With

If AppData.CGIMode = cmPipes Then
BytesToWrite = Len(InData)

AppData.PipeBufferSize
Ret = WriteFile(hInWrite, ByVal InData, BytesToWrite, BytesRW, 0)
If Ret = 0 Then GoTo IntErr
End If

CmdLine = vbNullString

CmdLine = " " & InData
End If

Ret = CreateProcess(CGIApp, CmdLine, sa, sa, 1, NORMAL_PRIORITY_CLASS, ByVal
0&, vbNullString, si, pi)

GoTo IntErr
End If

Ret = WaitForSingleObject(pi.hProcess, AppData.CGITimeOut * 1000)
If Ret = WAIT_TIMEOUT Then
TerminateProcess pi.hProcess, 0
End If

Ret = PeekNamedPipe(hErrRead, 0, 0, 0, BytesTotal, 0)

ErrData = String$(AppData.PipeBufferSize, 0)
Ret = ReadFile(hErrRead, ByVal ErrData, Len(ErrData), BytesRW, 0)

GoTo IntErr
End If
ErrData = Left$(ErrData, BytesRW)
End If

If Len(ErrData) = 0 Then
Ret = PeekNamedPipe(hOutRead, 0, 0, 0, BytesTotal, 0)

OutData = String$(AppData.PipeBufferSize, 0)
Ret = ReadFile(hOutRead, ByVal OutData, Len(OutData), BytesRW, 0)

GoTo IntErr
End If
OutData = Left$(OutData, BytesRW)
End If
End If

RunCGIApp = True

ESub:
CloseHandle pi.hProcess
CloseHandle pi.hThread
CloseHandle hInRead
CloseHandle hInWrite
CloseHandle hOutRead
CloseHandle hOutWrite
CloseHandle hErrRead
CloseHandle hErrWrite
Exit Function

IntErr:
Dim lErr&
ErrData = "Internal error" ' & GetLastError & " (" & GetAPIError(GetLastError)
& ")"
GoTo ESub
End Function
============================== Смотри выше ===============================

Всего хорошего!
Дмитрий Козырев aka Master

-+- Microsoft Outlook Express 6.0 + Fidolook SL .86
+ Origin: Дорогу осилит идущий. (2:5023/11.148)
==========================================================================

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Приветствую в нашем подземелье, Nick ?

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

ниже прога с тремя вариантами
1й мой
2й от Dmitry Miloserdov
3й от Nick Gorinov + небольшая переделка

итоги на моей машине
1й вариант - 10.09 сек последнее место
2й вариант - 7.57 сек второе место
3й вариант - 4.60 сек первое место

итого IF + ELSE гораздо быстрее логики AND и цикла DO

кому хочется на форму Command1 Command2 Command3 Label1 Label2 Label3
и код :
'=====================================================================
Dim DD(1000000) As Byte
Dim I1 As Long
Dim I2 As Long
Dim SS As String

Private Sub Command1_Click()
t1 = Timer

For I1 = 1 To 1000000
SS = ""
For I2 = 0 To 7
If DD(I1) And (2 ^ I2) Then
SS = SS & "1"
Else
SS = SS & "0"
End If
Next I2
Next I1
t2 = Timer
Label1.Caption = Format(t2 - t1, "##0.000")
End Sub

Private Sub Command2_Click()
t1 = Timer

For I2 = 1 To 1000000
SS = ""
I1 = 256
Do
I1 = I1 \ 2
If (DD(I2) And I1) Then
SS = SS & "1"
Else
SS = SS & "0"
End If

Next I2
t2 = Timer
Label2.Caption = Format(t2 - t1, "##0.000")
End Sub

Private Sub Command3_Click()
Dim DDD As Byte
t1 = Timer

For I2 = 1 To 1000000
SS = ""
DDD = DD(I2)







If DDD = 1 Then SS = SS & "1" Else SS = SS & "0"
Next I2
t2 = Timer
Label3.Caption = Format(t2 - t1, "##0.000")
End Sub

Private Sub Form_Load()
For I1 = 1 To 1000000
DD(II) = Rnd * 255
Next I1
End Sub
Я взял бы частями, но мне нужно сразу. Genrih Rudenok.
* Origin: Genrih Cool! (2:452/25.115)


Приветствую в нашем подземелье, Nick ?



в любом языке стоит думать о времени выполнения - даже в VB



- мне надо было 20 раз в секунду просчитывать со сдвигами десятичные в бинарный вид количество этих десятичных 1200 каждый из этих 20 раз (псевдо графический дисплей)
вывод текста и графики в реальном времени
- писать надо на VB желание заказчика

итого на машинке типа 3го целерона 1000 все это прекрасно успевается с запасом 20% по времени (после оптимизации приведенной в предыдущем письме)

тоже самое написаное на С делает тоже самое на 3м целероне 700 с таким же запасом

разница почти никакая - время затраченное на VB версию и на C версию различно и очень
примерно 2-3 часа на всю обработку на VB и 1.5 суток на тоже самое на С
притом пишу и на том и на том давно и быстро

Я взял бы частями, но мне нужно сразу. Genrih Rudenok.
* Origin: Genrih Cool! (2:452/25.115)


Рад приветствовать тебя, Slava!

07 ноября 2003 в 00:07, Slava Voronin -- Victor Tikhomirov:












Метод Raise не предназначен для вызова ошибки Microsoft Access или ошибки объекта доступа к данным (DAO).

Т.е. данный способ не подходит для закрытия приложения


Victor

* Origin: Картина Репина: Запорожцы пишут письмо Мерседесу (2:5030/1247.16)


Мы где-то виделись, Genrih?










Предлагаю свой вариант (на 40% быстрее третьего):

============================== Смотри ниже ===============================
Dim Pow2() As Long

Private Sub Command4_Click()
t1 = Timer

Dim lngValue As Long
Dim strDest As String
Dim i&, j&

For i = 1& To 1000000&
lngValue = DD(i)
strDest = " "
For j = 0& To 7&
If lngValue And Pow2(j) Then
Mid$(strDest, 8& - j, 1&) = "1"
Else
Mid$(strDest, 8& - j, 1&) = "0"
End If
Next j
Next i
t2 = Timer
Label4.Caption = Format(t2 - t1, "##0.000")
End Sub

Private Sub Form_Load()
Dim i&
ReDim Pow2(7)
For i = 0 To 7
Pow2(i) = 2 ^ i
Next i
End Sub
============================== Смотри выше ===============================





Опечатка: не II, а I1.




Всего хорошего!
Дмитрий Козырев aka Master

P.S. Hа самом деле это не мой вариант, а сборка из идей всей эхи. ;) Все-таки
эта тема уже не первый раз здесь обсуждается.

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Здравствуй, All!

Вопросы такие.

1. Как в HТ (XP/2K) прописать в систему драйвер (SYS файл)? Помещение в system32\drivers недостаточно. Может ли Inno Setup сам прописывать драйвера?

2. Манифест файл. Программа собрана на VB6. Манифест файл, пробовал редактировать и оставлять как есть. Манифест кладетс в каталог к программе, exe запускается, далее звук критической ошибки и все. Hикаких сообщений, программа не стартует. Стоит убрать илипереименовать манифетс - все нормально.
Что может быть, как работать с манифест-файлом?

3. Как в 9X обратится к данным на хдд, не включенным в разделы? Вот таким способом: CreateFile("\\.\VWIN32", ..............) можно получить доступ только к логическому диску.


Удачи!

* Origin: "Made in Heaven" Queen (2:5020/794.77)


Привет, Dmitriy!

09 Nov 03 10:42, Dmitriy Kozyrev wrote to Genrih Rudenok:


бррр! не понял... присваивание значения выражению? как оно работает? пока у
меня только одна мысль о том, что Mid$ возвращает ссылку на строку.

_впервые_ встречаю подобную конструкцию, не видел такого ни в одном языке.
подобные вещи обычно делаются совсем по другому. например:
strcpy(&strDest[8-j],"1");

С уважением, Nick!
np: кулеры, винты, уличный шум, etc.

* Origin: Ловись коннект большой и маленький! (2:5038/15.1)


Привет, Genrih!

08 Nov 03 21:08, Genrih Rudenok wrote to Nick Gorinov:




после некоторого порога оптимизации ИМХО стоит уходить на другой язык или же
реализовывать на другом языке только критичные по времени части программы.







А откуда берутся числа, которые надо переводить? не является ли их получение
узким местом?







закинь, плз, код на C. в эху может и не стоит... в мыло кидай. кстати, какой
именно компилятор С использовался?




HЕ ВЕРЮ! если исходить из того, что абстрактному программисту известны оба
языка в необходимом объеме, известен алгоритм и то, что этот абстрактный
программист не допускает ошибок, то времена реализации не будут настолько
отличаться, ибо в этом случае время написания будет определяться только объемом
кода.
При приближении модели к реальности еще можно учесть допущение алгоритмических
ошибок примерно в одинаковом объеме в каждом из исходников. затраты на их поиск
также отличаться почти не будут.
Синтаксических ошибок по крайней мере я почти не допускаю(пишу в основном на
С++).

С уважением, Nick!
np: кулеры, винты, уличный шум, etc.

* Origin: Ловись коннект большой и маленький! (2:5038/15.1)