VB源码(VB源码是什么)
VB下载网页源码
使用 URLDownloadToFile 这个API可以实现你想要的功能。
'// 定义
'// 下载网络上的一个文件到本地
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long
'// 下载一个文件到本地
Public Function DownloadFile(ByVal strURL As String, ByVal strFile As String) As Boolean
Dim lngReturn As Long
lngReturn = URLDownloadToFile(0, strURL, strFile, 0, 0)
If lngReturn = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
Debug.Print DownloadFile("", "D:\1.html")
End Sub
vb源码转delphi
转成Delphi的代码大概这样，具体要取决于你的实际应用中
//?保存图像
procedure?SaveImgPtr(pImg:?Pointer);
var?
??nIsz:?Integer;
??hBuf:array?of?Byte;
??mStream:?TMemoryStream;
begin
??if?pImg??nil?then
??begin
????nIsz?:=?CamaOcx.GetImgLen(g_nImgFmt);
????SetLenght(hBuf,?nIsz);
????CopyMemory(hBuf,?pImg,?nIsz);
????mStream?:=?TMemoryStream.Create;
????try
??????mStream.write(hBuf,?nIsz);
??????mStream.SaveToFile(ExtractFilePath(ParamStr(0))?+?'OneSnap.bmp');
????finally
??????mStream.Free;
????end;
????SetLenght(hBuf,?0);
??end;
end;
//?抓拍保存
procedure?TForm1.Button1Click(Sender:?TObject);
var?
??pImg:?Pointer;
begin
??if?ChkEvnt.Checked?then?//?如果vb中是checkbox的话那就在delphi中是这样
??begin
?????Screen.Cursor?:=?crHourGlass;
?????pImg?:=?CamaOcx.SnapOne(g_nImgFmt);
?????if?pImg??nil?then
???????SaveImgPtr(pImg)
?????else
???????ShowMessage('抓拍失败，请核查！');
?????Screen.Cursor?:=?crDefault;
??end?else?g_bDoSnap?:=?True;
end;
VB源码，谁能帮我解释下下面这段代码是什么意思？我快要答辩了
这只是个返回处理数据库时操作结果的代码
当操作为添加，删除或更新时
返回 操作名+query successful(如 INSERT query successful)
当操作为搜索时
返回 查询到n条记录
当操作中出现错误是
返回 查询错误 + 错误信息描述