Delphi开发人员指南(第四部分·下)

31.3HTMLHTMLDelphiHTMLTCustomContentProducerHTMLTPageProducerTDataSetTableProducerTQueryTableProducerTCustomContentProducerHTMLHTMLHTMLHTML31.3.1TPageProducerTPageProducerHTMLHTMLTPageProducerWebHTMLHTMLWeb()()#ObjectPascalDelphitgLinktgCustom31-131-1CustomtgCustomLinktgLink(A../A)ImagetgImage(IMGSRC=...)TabletgTableHTML(TABLE../TABLE)ImageMaptgImageMap(MAP../MAP)ObjecttgObjectActiveXEmbedtgEmbedNetscapeDLLTPageProducerHTMLDocHTMLFileHTMLContentTISAPIResponseContentHTMLOnHTMLTagOnHTMLTagTagTTag(31-1)TagStringTagParams=ReplaceText31WebBrokerInternet1091TPageProducerHTMLHTMLHTMLDocHTMLHTMLFileHTMLHTMLMYPAGE.HTMHTMLPageProducer.OnHTMLTagHTMLWebModuleOnActionPageProducer.ContentTISAPIResponseContentHTMLOnHTMLTagHTMLCaseTCustomPageProducersHTMLTCustomPageProducersOnHTMLtag31.3.2TDatasetTableProducerTQueryTableProducerHTMLDelphiTDataSetTableProducerHTMLTDataSetTableProducerHTMLTDataSet-TableProducerTDBGrid1092TDataSetTableProducerWebTDataSetTableProducerTDataSetTDataSourceTDataSetTableProducerDataSetTDataSetTDataSetWebModuleDataSetTDataSetTableProducerTableAttributesHTMLHeaderFooterTStringsHTMLTPageProducerHeaderFooterTPageProducerTDataSetTableProducerColumnsRowAttributesTableAttributesColumnsObjectInspectorColumnsColumnsCaptionCaptionAlignDataSet(TQueryTableProducerQuery)TDataSetTableProducerTQueryTableProducerTQueryTableProducerWebInternetTQueryTableProducerWebModuleDataAccessTQueryTSessionWebModuleTQuery-TableProducer1.DataSetQuery1Query1.DatabaseNameDBDEMOSTABLEEX.DPRQuery1.SQLCUSTOMER.DBHTMLQuery1.ActiveTrueColumnsWebTSessionWebModuleWebISAPINSAPIBDETSessionAutoSession-NameTrueBDETSessionDelphiWebTWebApplicationCacheConnectionsISAPINSAPITWebModuleTWebModuleCacheConnectionsTrue31WebBrokerInternet1093TWebModuleTWebModuleOnCreateOnCreateOnCreateTWebApplicationInactiveCountTWebApplicationActiveCountTWebApplication.MaxConnectionsTWebModuleActiveCountMaxConnectionsQueryTableProducer1ColumnsHTMLDelphiTQueryAMOUNTPAIDBgColorLimeColumnsBorder1CellPadding2BgColorAquaDelphiTitleTitleCaptionTitle.CaptionCust#Order#CompanyAmountOwedTitleTHTMLTableColumnCustomWebInternetExplorerCustom=HTMLTQueryTableProducerHTMLOnCreateContentContinueFalseTQueryTableProducerContentMaxRowsQuery1.FirstHTMLQueryTableProducer1.OnCreateContentOnGetTableCaption1094CaptionHTMLAlignmentOnGetTableCaption(HTML)OnFormatCell(AmountOwed)TQueryTableProducerCellRowCellColumnOnFormatCellCellRowCellColumn0AlignVAlignCustomAttrsCellDataCellDataStrtoIntDelphi31-3OnFormatCell31-3OnFormatCell31WebBrokerInternet1095TQueryHTMLTQueryTableProducerHeaderTQueryTableProducerFooterTQueryTableProducerContentTWebRe-sponseContentWebModuleWebActionItemPathInfo/TestTableOnActionDLLWebWebURL=cookiecookieWebcookieNetscapeCOOKIES.TXTInternetExplorer\WINDOWS\COOKIEScookieDelphicookieTHTTPRequestTHTTPResponsecookiecookieCookieTWebResponseSetCookieField()TStrings(cookie)cookieHTTPAPPSetCookieField()ValuesTStrings(TStringList)cookieValuescookieADomainCookiecookieWebcookiecookieCookieADominwidgets.comcookiebig.widgets.comsmall.widgets.comcookiecookieAPathCookieADomainAPathAPathcookieAPath/nutswidgets.com/nuts(widgets.com/nuts/andbolts)cookieAExpirescookieTDateTimeGMTCookieNow+10cookiecookiecookieASecureTruecookieHTTPSecureSocketsLayerFalseWebTWebRequestCookieFieldscookie31WebBrokerInternet1097TStringscookie=TWebRequestcookiecookiecookieTWebRequestExtractCookieFields()cookieDelphicookieWebUtilsWebWebActionIiemSetCookieGetCookieSetCookieOnActionGetCookieOnActionURLTParamsListWebUtilsTStringsTWebResponseCookieFieldscookieTStringscookie=TParamsListTStringscookieMyParams[cookie]cookieTStringsValuesURLcookie10cookiecookieGetCookiecookieSetCookiecookiecookie4KB300cookiecookie20Cookie1098cookiecookiecookie1001emailemailcookiecookieHTTP31.5WebURLWebWebWebURLHTMLTWebResponseSendRedirect()procedureSendRedirecrt(constURL:string);virtual:abstract;SendRedirect()HTTPAPP.PASISAPIAPP.PASWebHTTPURLURLOnActionSendRedirect()SendRedirect()URLQueryFieldsSendRedirect()31.6HTMLInternetintranetHTMLDelphiHTML31WebBrokerInternet1099WebINDEX.HTMGUEST.HTMSubmitSubmitDLLOnActionemailSubmitWeb/formWebActionItemRequest.ContentFieldsContentFieldsTStringsTTableGBTableGBDATA/GBDATAParadox31-431-4ContentFieldsTParamsListGBTable31-431-5email31-51100/entriesWebActionItem31.7HTTPHTMLNetscapeRealAudioShockwaveNetscapeDelphiTWebResponseSendStream()ContentStreamTWebResponseContentTypeMIMEWindowsWAVContentType'audio/wav'MIMEMultipurposeInternetMailExtensionsMIMEemailHTTPMIMEWebWebWebMIMEMIMEWebISAPIDLLISAPIDLLDLLWindowsWeb31WebBrokerInternet1101DelphiFile|NewWebServerAppli-cationTWebModuleObjectInspectorActionsWebActionItem/file/bitmap/resource/fileObjectInspectorEventsOnActionHTMLJPEGIMGWebAction\binJPEGTESTIMG.JPGOnActionTFileStreamContentTypeMIMEJPEGTFileStreamResponse.ContentStreamSendResponse()JPEGJPEGFilename/bitmapWebActionItemOnAction1102JPEGTBitmapTJPEGImage(JPEG)JPEGTBitmapLoadBitmap()ATHENA(Handle)TJPE