Как да се покаже информацията (HTML) в уеб браузъра е от DB Access
По-конкретен въпрос:
1) достъп до базата данни за достъп (Database форум на)
2) да работи с уеббраузър и CGI-BIN скриптове (IMHO) - ако не искате да създадете файл (форум на мрежата)
Виж методи WebBrowser.Document интерфейс
Например - writeln
Е, кой ви спира? Чете информация от областта на петно (графичен файл - най-вероятно все още * .htm) и донесе на уеббраузър на изображението.
Само за това, което ще има достъп до WebBrowser.Document (IHTMLDocumnet (2)), proinitsializuruyte WebBrowser приблизително по следния начин (по отношение хб - Delphi не е необходимо):
WebBrowser.Navigate ( "за: празно")
колело (не WebBrowser.ReadyState <> READYSTATE_COMPLETE)
спи 100
doevents "в случай на D - Application.ProcessMessage
тръгвам
В предишна отговор на колелото не съм сигурен до каква. )))
Тук пише:
Е, кой ви спира? Чете информация от областта на петно (графичен файл - най-вероятно все още * .htm) и донесе на уеббраузър на изображението.
TTN Така че това е, което искам, но аз не знам как да го направя
Как да насочване на потока, което прочетох вашата област BLOB, по мое
WEBBrouser.
Тук е моят protsedurka че чете и записва поле информация във файла. Този файл след това мога да определя имот навигация. Така че аз нямам проблеми. Но аз нямам файл и веднага. Но как.
Той го нарича просто: WriteFromFieldToFile (поле в базата данни);
Моля, кажете ми за повече подробности. Как мога да го направя.
Ако това не е трудно да се даде сорс кода, като моя.
Това решение от там
Q: Как да кача поток (поток) данни в WebBrowser без да се налага да отваряте файлове?
A: Ето един пример на код:
функция TForm1.LoadFromStream (конст AStream: TStream): HRESULT;
започвам
AStream.seek (0, 0);
Резултат: = (WebBrowser1.Document като
IPersistStreamInit) .Load (TStreamAdapter.Create (AStream));
приключи;
Слава Богу, има zdvigi, но! както винаги, но нещо не е наред. това е, което и този път. Качих че protsedurki, че си ми дал, моят поток. WEBBrouser го приели. Но проблемът е, че WEBbr. Тя ги показва като текст. вместо като графики.
Нито една толкова различна. ) Как да направя сега нормалното им дисплей.
Тук е моята процедура, която прави
процедура TForm1.KeyStoreClick (Sender: TObject);
Var
Поток: TStream;
започвам
с Query1 правя
започвам
Поток: = (FieldByName ( "DataBlob") DataSet като TCustomADODataSet.) .CreateBlobStream (FieldByName ( "DataBlob"), bmRead);
WebBrowser1.Navigate ( "относно: Blank");
LoadFromStream (поток);
приключи;
След това, браузъра ми показва информацията като текст. Защо.
Между другото, благодаря за линка.
С prazdnichkom.
Промените са. Но както винаги, завинаги какъв е проблемът. Този път беше. Браузърът ми, поточно предаване на глътки. Но показва информацията като HTML текст. Но не както обикновено, в графика, колкото е необходимо. Защо.
Тук е моята процедура, която гласи поле BLOB.
процедура TForm1.KeyStoreClick (Sender: TObject);
Var
Поток: TStream;
започвам
с Query1 правя
започвам
Поток: = (FieldByName ( "DataBlob") DataSet като TCustomADODataSet.) .CreateBlobStream (FieldByName ( "DataBlob"), bmRead);
WebBrowser1.Navigate ( "относно: Blank");
LoadFromStream (поток);
приключи;
Stream.Free;
приключи;
След това, WebBrowser - това показва като текст. Това, че този път не е така.
Между другото, благодаря за линка.
С prazdnichkom.
Опитайте се да се промени намалената LoadFromStream, както следва:
WebBrowser1.Document като
IPersistStreamInit) .InitNew ();
(WebBrowser1.Document като
IPersistStreamInit) .Load.
(Поне по този начин служи MSDN)
Ако това не помогне - включете поток в линия, и използването
метод за запис или writeln WebBrowser1.Document
Свързани статии