delphi 怎么获取当前webbrowser1的浏览页源文件

利用 WinInet 单元中的函数：

uses WinInet;

function GetWebPage(const Url: string):string;

var

Session,

>

Imports SystemTextRegularExpressions '正则表达式

Public Class 视频播放器

Private 文件路径 As String

Private Sub 视频播放器_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad

MeAllowDrop = True '支持文件拖拽

MeWidth = 920

MeHeight = 630

End Sub

Private Sub 视频播放器_DragEnter(ByVal sender As Object, ByVal e As SystemWindowsFormsDragEventArgs) Handles MeDragEnter

Try

If eDataGetDataPresent(DataFormatsFileDrop) = True Then

eEffect = DragDropEffectsCopy

Else

eEffect = DragDropEffectsNone

End If

Catch ex As Exception

MessageBoxShow(exMessage)

End Try

End Sub

Private Sub 视频播放器_DragDrop(ByVal sender As Object, ByVal e As SystemWindowsFormsDragEventArgs) Handles MeDragEnter

Try

Dim filepaht As String() = eDataGetData(DataFormatsFileDrop)

For Each File As String In filepaht

文件路径 = File

'播放音乐文件

Dim 文件名 As String = 文件路径Substring(文件路径LastIndexOf("\") + 1)

If InStr(1, 文件路径, "flv", 1) Or InStr(1, 文件路径, "mp3", 1) Then

WebBrowser1Url = New Uri("E:\usr\>

以上就是关于delphi 怎么获取当前webbrowser1的浏览页源文件全部的内容，包括:delphi 怎么获取当前webbrowser1的浏览页源文件、winfrom WebBrowser取网页p标签的值，没有id和name，只有class，怎么获取里面的内容、使用WebBrowser控件实现的视频播放器等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！