powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как просмотреть HTML?
21 сообщений из 21, страница 1 из 1
Как просмотреть HTML?
    #32249107
Жмурик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я сформировал строку с содержанием html-тегов. Таким образом я хочу сделать красивый cross-tab отчет.
Но как теперь его посмотреть?
В памяти всплывают какие-то манипуляции с "about:..."...
Я уже согласен скидывать контент в файл на диск.
Но таки как его потом закачать в браузер?
Dir и Shell не помогают. Как вариант - мои кривые руки.
Помогите, а?
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32249341
Жмурик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Что-то нам с Машенькой не везет на этом форуме...
Как закон какой-то: всем отвечают кроме меня.
Абыдна, панимаишь!

На Делфийском форуме у мастаков поживее будет.
Попал я в глубокую ... с этим акцессом. Когда мне платили за работу на Делфи, проблем с информацией не было.

И не надо мне: готовы помочь но случайно никто не знает...
Это тенденция. Прощайте
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32249347
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Но таки как его потом закачать в браузер?
Код: plaintext
1.
IEXPLORE.EXE  "file://localhost/D:/Program Files/Opera/Cache4/opr0063V.htm" 
OPERA  "file://localhost/D:/Program Files/Opera/Cache4/opr0063V.htm" 


Работает, однако...
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32249349
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это была его предсмертная записка. Зачем он приходил в этот мир? Непонятно...

Гео, ты опоздал, похоже
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32249358
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Лифчик
Да ничего страшного, я думаю...
Это же надо 3 часа проверять инет, вместо того, чтобы посмотреть, как браузер файлы локальные открывает. :(
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32249364
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кстати эти файла можно смотреть на форме ахеса:

- Бросаем контрол "Обозреватель веб-страниц (Microsoft)" [Shell.Explorer.2]

- если надо сменить страницу: Me.WebBrowser1.Navigate "c:\1.htm"

Фсё

Наверно это пост смертная видите он уже посинел к тому времени
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32249701
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поглумлюсь-ка я над трупом
Чем ему FollowHyperLink не понравилось?
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32249725
Фотография vdimas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Гораздо грамотнее обойтись без промежуточного файла (почти без файла!).
Можно прямо в памяти создавать элементы DOM.

Делай так:

1. Посади на форму ActiveX - Web Browser
2. подключи ссылку на MSHTML.TLB
3. создай файл-"болванку", типа:
Код: plaintext
1.
2.
3.
4.
<html>
    <body>
        <TABLE id= "MainTable" ></TABLE>
    </body>
</html>

4. Выполни Navigate2("полный путь файла")
5. Перехвати событие Document_Complete, и делай с содержимым, что хошь:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim doc As MSHTML.HTMLDocument

    Set doc = IE.Document
    
    Dim tbl As HTMLTable
    Set tbl = doc.All.Item( "MainTable" )
    tbl.cols =  3 
    
    Dim i As Integer, j As Integer
    Dim row As HTMLTableRow
    Dim cell As MSHTML.HTMLDTElement
    Dim link As MSHTML.HTMLLinkElement
    Dim graph As MSChart
    Dim rowdata( 1  To  2 )    ' array for Chart Data
    
    For i = 1 To 3
        Set row = tbl.insertRow
        row.bgColor = &HD0D0D8
        row.className = "MyHeader"
        
        Set cell = row.insertCell(0)
        cell.colSpan = 3
        cell.innerText = "This is HEADER ROW #" & i
        
        For j = 1 To 10
            Set row = tbl.insertRow
            row.className = "MyData"
            
            Set cell = row.insertCell(0)
            cell.innerHTML = "<a href='http://{MENU_ITEM}'>Data Row #" & j & "   Column 1</a>"
            
            Set cell = row.insertCell(1)
            cell.innerText = "Column 2"
            
            Set cell = row.insertCell(2)
            
            cell.innerHTML = "<OBJECT style='WIDTH: 20pt; HEIGHT: 13pt;' classid='clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D'></OBJECT>"
            IE.Visible = True
            
            Set graph = cell.firstChild
            With graph
                .Repaint = False
                .Plot.Backdrop.Fill.Style = VtFillStyleNull
                .Backdrop.Fill.Style = VtFillStyleNull
                .ShowLegend = False
                rowdata(1) = i
                rowdata(2) = j
                .ChartData = rowdata
                .chartType = VtChChartType2dPie
                .Enabled = False
                .ColumnLabelCount = 0
                .RowLabelCount = 0
                
                With .Plot
                    .LocationRect.Max.Set (cell.clientWidth - 1) * 15, (cell.clientHeight - 1) * 15
                    .LocationRect.Min.Set 0, 0
                    '.PlotBase.BaseHeight = cell.clientHeight *  15 
                End With
                .Repaint = True
            End With
        Next j
    Next i
    Me.Visible = True
End Sub


Можно придать нехилый внешний вид своим приложухам, да и отчетики можно программно формировать произвольные. :))
Только не забывать вставлять в HTML-код разделители страниц, если это-отчет.
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250473
Жмурик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Веревка оборвалась...

А таки гордость у акцессовцев есть!
Вон как попинали, когда усомнился в компетентности!

Продолжим разговор в таком случае...

Гео!
Локальное открытие не вопрос.
Знаешь ли ты что:
Команда Shell "iexplore" не запускает браузер!
Ей нужен полный путь.
Я его и указываю но это согласись не красиво.
Неизвестно как пойдет на других машинах.
И на машинах без ИЕ точно не пойдет. (мне известны случаи удаления его и пользование нетскейпом)

Лох!
А что это такое?
FollowHyperLink
Оно мне уже нравится, но что это!

Наконец, Дима!
Ты юзал этот компонент?
Лично у меня он не изменяет программно размеры. ...Width = ... не реагирует. А мои пользователи имеют дисплеи с совершенно разными разрешениями. Так я точно никому не угожу.

Вопрос остался открыт.

Лох, на тебя одна надежда...
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250477
Жмурик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Во вражеской Delphi ShellExecute запускает документы зарегистрированного типа.

А в любимом Accesse?
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250497
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Жмурик\r
Чтобы обращали внимание нужно вопросы задавать более правильно, написал бы хочу открыть файл тем приложением, которое установлено в системе по умолчанию.\r
Быстрее бы ответили.\r
И еще есть поиск.\r
\r
Вот здесь обсуждалось
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250506
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У безвременно почившего DOS есть команда
start filename.ext
которая открывает зарегистренные файлы.
Вот и пиши Shell ("start ...")!!!

А еще недавно уважаемый Сенин Виктор приводил пример использования API на ту же тему, поищи по "start".
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250507
Alex Juice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
>А что это такое?
>FollowHyperLink

Дык то самое...
Код: plaintext
Application.FollowHyperlink  "C:\1 .htm"

откроет тебе этот файл в браузере
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250513
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И еще (пока Лох отлучился).

Если нужно открывать только ссылки, то вполне хватит предложенного Лохом метода

Что такое FollowHyperLink можно прочитать в справке
The FollowHyperlink method opens the document or Web page specified by a hyperlink address.

expression.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250543
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Жмурик писал:Во вражеской Delphi ShellExecute запускает документы зарегистрированного типа.

Вообщето это API функция...
Можешь смело объявлять и юзать
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250555
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, бедняга, наверное уже не дышит, а его все пинают
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250600
Жмурик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, брацы!
Вопрос решен.

Век живи, век учись, толку нет.
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250660
Фотография fedd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>век живи...

- voodoo, voodoo, what you don't dare do people
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250725
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ура! Жмурик живчиком оказался


...принесли его домой...оказался он живой...
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32250824
Фотография vdimas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Жмурик

Да, порой не изменяет размеры, если всякими Width и Height пользоваться. Однако есть еще способ.

Win32 API MoveWindow
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
'объявление в каком-нить модуле'
Public Declare Function MoveWindow Lib  "user32"  Alias  "MoveWindow"  (ByVal hwnd As Long, _
        ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
        ByVal bRepaint As Long) As Long

'в ресайзе:'

    MoveWindow myIE,  0 ,  0 , me.InternalWidth/ 15 , me.InternalHeight/ 15 , true
...
Рейтинг: 0 / 0
Как просмотреть HTML?
    #32251421
Жмурик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дима

но у встроенного браузера нет свойства handle.
hwnd дает глюк.
...
Рейтинг: 0 / 0
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как просмотреть HTML?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]