Люди, кто делал справочную систему на qt??

[sarbash]

В справке вообще написано, что для плагинов основным каталогом считается каталог исполняемого файла приложения и для остального та же система, если на машине Qt нету.
По крайней мере, на Винде и без qt.conf всё так работает. В общем, в справке всё написано...

[nata267]

забыл упомянуть. рядом с приложением кладётся пустой файл с именем
qt.conf

lit-uriy, спасибо за совет, возможно файл помог бы)

[nata267]

В справке вообще написано, что для плагинов основным каталогом считается каталог исполняемого файла приложения и для остального та же система, если на машине Qt нету.
По крайней мере, на Винде и без qt.conf всё так работает. В общем, в справке всё написано...

без файла на винде 7  не работало)

[nata267]

значит надо добавить в проект все dll'ки, которые он требует

Это и так ясно. Но тем не менее "Cannot load sqlite database driver!"

это уже другая тема, dll необходимые для работы sqlite

[кып]

это уже другая тема, dll необходимые для работы sqlite

Это очевидно. Если положить рядом \sqldrivers\qsqlite4.dll все естественно работает.
Вопрос то был зачем оно асистанту?

[lit-uriy]

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

[кып]

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

Т.е. SQLite встроен в assistant.exe? Я правильно понимаю?

[crossly]

тут почти целую страницу изливались по поводу qsql4.dll .... откуда такая мысль взялась??

[lit-uriy]

>>Т.е. SQLite встроен в assistant.exe? Я правильно понимаю?
это зависит от того, как собрана библиотека Qt (как именно поддерживается драйвер). Он может быть в виде плагина, а может быть вкомпилен внутрь QtSql, а может использоваться тот, который установлен в отдельно.

[кып]

тут почти целую страницу изливались по поводу qsql4.dll .... откуда такая мысль взялась??

Это о какой мысли вопрос?

>>Т.е. SQLite встроен в assistant.exe? Я правильно понимаю?
это зависит от того, как собрана библиотека Qt (как именно поддерживается драйвер). Он может быть в виде плагина, а может быть вкомпилен внутрь QtSql, а может использоваться тот, который установлен в отдельно.

Да я не про драйвер, а про сам движок SQLite.


 

[lit-uriy]

>>Да я не про драйвер, а про сам движок SQLite.
В данном случае мот ответ будет тем же.

[iroln]

Поднимем тему

Всем привет!

Решил поэкспериментировать с докой в Qt. Проблема в том, что в Assistant страницы отображаются некорректно, словно стили поломаны или не подгружаются нужные данные.

Для проверки сгенерировал документацию через Sphinx. В qhp файле указал все файлы (html, css, js, png...). Добавляю полученный qch файл в ассистант и получаю совершенно некорректное отображение. Не пойму чего ему не нравится, ассистант не умеет показывать то, что нагенерировал Sphinx, а почему тогда браузеры умеют?

[lit-uriy]

iroln, асистент какой версии?

[panAlexey]

M$ Help Workshop все это автоматизирует - есть ли такой инструментарий для Qt?

я обычно клепаю нечто вроде index.html, потом прохожусь скриптом:

Код:

' Готовим файл "Table of Contents_.hhc" для "HTML Help Workshop"
' из файла "index.html/index.html", а то парит каждый раз оглавление ручками
' делать...
'
'... Просто запусти в каталоге с "index.html"
'Автор Трошин Дмитрий, ака trdm 2007 год 
'	ICQ 308-779-620
' 
' © trdm 2007 GNU

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim TextStream
Dim glTextStart
Dim glTextEnd


Dim RE
Set RE = New RegExp
RE.IgnoreCase = true 
RE.Global = True
RE.Multiline = True

' Нарисуем фрагмент оглавления....
Function GetTextArticle( psLinkText, psTitleText, psIndent )
	valRet = ""
	' Пробел кодируется > '%20'
	tFileName = psLinkText
	if InStr(psLinkText,"#")>0 Then
		tFileName = Left(psLinkText,InStr(psLinkText,"#")-1)
	End IF
	tFileName = Replace(tFileName, "%20"," ")
	
	bFileExist = FSO.FileExists(tFileName)
	
	if bFileExist or Len(tFileName)=0 Then	
		valRet = valRet + psIndent + "	<LI> <OBJECT type=""text/sitemap"">" + vbcrlf
		valRet = valRet + psIndent + "		<param name=""Name"" value="""+psTitleText+""">" + vbcrlf
		valRet = valRet + psIndent + "		<param name=""Local"" value="""+psLinkText+""">" + vbcrlf
		valRet = valRet + psIndent + "		</OBJECT>" + vbcrlf
	end if
	GetTextArticle = valRet
End Function 

Private Function FindInStrEx (patrn, strng)
  FindInStrEx = ""
  on error resume next
  RE.Pattern = patrn			' Set pattern.
  Set Matches = RE.Execute(strng)	' Execute search.
  if err.number<>0 Then		
	message Err.Description
	exit Function
  End If
  on error goto 0
  RetStr = ""
  For Each Match in Matches		' Iterate Matches collection.
	if Len(RetStr)>0 Then
		RetStr = RetStr & vbCrLf & Match.Value
	else
		RetStr = Match.Value
    End if
  Next
  FindInStrEx = RetStr
End Function

Function ReRelpace222(patrn, strng, strTo)
  ReRelpace = ""
  on error resume next
  RE.Pattern = patrn			' Set pattern.
  strng = RE.Replace(strng,strTo)
  if err.number<>0 Then		
	message Err.Description
	exit Function
  End If
  on error goto 0
  RetStr = ""
  ReRelpace = RetStr
End Function




Sub MakeHelps2( psPath, psAllText)
	Set objIE = CreateObject("InternetExplorer.Application")
	objIE.Navigate psPath
	While objIE.Busy
	    Wscript.Sleep 200
	Wend
	
	set Document = objIE.Document
	set coll = document.all.tags("A")
	if Not IsObject(coll) Then
		exit sub
	end if
stop
	tPathDoc = Document.location.pathname
	' "/D:/Progekts/chm/OpenNET_docs/_%20No_CHM/autoconf-prog/index.html"
	tPathDocA = Split(tPathDoc,"/")
	tPathDoc1 = ""
	for i=1 To UBound(tPathDocA)-1
		tPathDoc1 = tPathDoc1 + tPathDocA(i) + "/"
	Next
	nnn = ""
	for i=0 to  coll.length-1
		set item = coll.item(i)
		nnn = nnn + item.title + vbcrlf 
		'	item.href	"file:///D:/Progekts/chm/OpenNET_docs/_%20No_CHM/XML-web/index.html#sec-bibliography"	String
		'item.outerText	"Ссылки"	String
		'item.pathname	"D:/Progekts/chm/OpenNET_docs/_%20No_CHM/XML-web/index.html"	String
		' Мне нужен путь относительно переданного, но только файлы, следовательно:
		If Left(item.href,8) = "file:///" Then
			textRef = Replace(item.href,"file:///","")
			textRef = Replace(textRef, tPathDoc1,"")
			' теперь в textRef чистая ссылка...
			textTitle = item.outerText
			' и в принцыпе можно запускать генерацию текста 
			psAllText = psAllText + GetTextArticle( textRef, textTitle, "	" )
			
		End If
	next
End Sub


Sub MakeHelps()
	strFileIndex = "index.html"
	strFileIndex2 = "Table of Contents_.hhc"
	For i = 1 to 2
		if i = 1 Then
			strFileIndex = "index.html"
		Else
			strFileIndex = "index.htm"
		End If
		if Not FSO.FileExists(strFileIndex) Then
			'MsgBox	strFileIndex+" Not Exist"
			strFileIndex = ""
		else
			Exit For
		End If
	Next
	
	Set SvcService = CreateObject("Svcsvc.Service")
	strFileIndex = SvcService.SelectFile(False, ""+strFileIndex, "htm, html - files|*.*")

	if strFileIndex = "" Then
		MsgBox	"File ''index.html'' or ''index.htm'' Not Exist!"
		exit Sub
	End If
	
stop


	tText2 = ""	
	
	Set TextStream2 = FSO.CreateTextFile(strFileIndex2)

	Set objFile = FSO.GetFile(strFileIndex)
	if Not LCase(objFile.Type) = "html document" Then Exit Sub

	Set TextStream1= objFile.OpenAsTextStream(1)
	
	tText2 = tText2 + GetTextArticle( strFileIndex, "Содержание","")
	tText2 = tText2 + "	<UL>" + vbcrlf

	MakeHelps2  strFileIndex, tText2 	

	

	TextStream2.Write glTextStart
	TextStream2.Write tText2
	TextStream2.Write glTextEnd 
	TextStream1.Close
	TextStream2.Close
	
	MsgBox "Готово!" + tTextAllL
End Sub

' Стартовый текст в *.hhc
glTextStart = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" + vbcrlf
glTextStart = glTextStart + "<HTML>" + vbcrlf
glTextStart = glTextStart + "<HEAD>" + vbcrlf
glTextStart = glTextStart + "<meta name=""GENERATOR"" content=""Microsoft&reg; HTML Help Workshop 4.1"">" + vbcrlf
glTextStart = glTextStart + "<!-- Sitemap 1.0 -->" + vbcrlf
glTextStart = glTextStart + "</HEAD><BODY>" + vbcrlf
glTextStart = glTextStart + "<OBJECT type=""text/site properties"">" + vbcrlf
glTextStart = glTextStart + "	<param name=""Window Styles"" value=""0x800025"">" + vbcrlf
glTextStart = glTextStart + "</OBJECT>" + vbcrlf
glTextStart = glTextStart + "<UL>" + vbcrlf


glTextEnd = glTextEnd + "	</UL>" + vbcrlf
glTextEnd = glTextEnd + "</UL>" + vbcrlf
glTextEnd = glTextEnd + "</BODY></HTML>" + vbcrlf

MakeHelps

а потом подсовывал результат M$ Help Workshop-у.
но чето не айс уже такой зевей.
хочется нормальной справкомейкалки.
Может http://code.google.com/p/sigil/ допилить? Редактор там уже есть

[panAlexey]

iroln, асистент какой версии?

+1
в 4.7.4. поломан вебвьюв.