据说vb6中,字 符串以以UNICODE方式存储，所以
Private Type UDT
lngM1 As Long
lngM2 As Long
strM3 As String * 18
strM4 As String * 8
lngM5 As Long
End Type
Private Sub Command4_Click()
Dim tmp As UDT
With tmp
.lngM1 = 1
.lngM2 = 2
' .strM3 = "一二三四五六七八九十一二三四五六七八"
.strM3 = "一二三四五六七八九"
' .strM3 = "ABCD"
.strM4 = "测试ABC"
.lngM5 = 5
End With
Dim bytBuf() As Byte
ReDim bytBuf(Len(tmp) - 1)
CopyMemory bytBuf(0), tmp, Len(tmp)
Winsock1.SendData bytBuf
End Sub
vc6中定义相对应的结构体：
typedef struct{
long lM1;
long lM2;
char szM3[18];
char szM4[8];
long lM5;
}UDT;
//。。。。。。（省略部分代码）
char recvBuf[128];
UDT t;
while(true)
{
memset(&t,0,sizeof(t));
memset(recvBuf,0,sizeof(recvBuf));
//接收数据
int recvlen=recvfrom(svr,recvBuf,128,0,(sockaddr*)&a ......
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的');
if X > Y then
Result := X
else
Result := Y;
end;
exports mymax;
begin
end.
vb中的调用程序如下：
Private Declare Function mymax Lib "C:\lx\delphi\lx1\dll1.dll" (ByVal sj1 As Long, ByVal sj2 As Long, ByRef sj3 As Long, ByRef s1 As String) As Long
Private Sub Command1_Click()
Dim s_t As String
Text3.Text = ""
sj3_v = 0
s_t = "测试输入："
Text3.Text = mymax(Val(Text2.Text), Val(Text1.Text), sj3_v, s_t)
Print (Str(sj3_v) + s_t)
End Sub ......
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的');
if X > Y then
Result := X
else
Result := Y;
end;
exports mymax;
begin
end.
vb中的调用程序如下：
Private Declare Function mymax Lib "C:\lx\delphi\lx1\dll1.dll" (ByVal sj1 As Long, ByVal sj2 As Long, ByRef sj3 As Long, ByRef s1 As String) As Long
Private Sub Command1_Click()
Dim s_t As String
Text3.Text = ""
sj3_v = 0
s_t = "测试输入："
Text3.Text = mymax(Val(Text2.Text), Val(Text1.Text), sj3_v, s_t)
Print (Str(sj3_v) + s_t)
End Sub ......
下面列出Python正则表达式的几种匹配用法：
1.测试正则表达式是否匹配字符串的全部或部分
regex=ur"" #正则表达式
if re.search(regex, subject):
do_something()
else:
do_anotherthing()
2.测试正则表达式是否匹配整个字符串
regex=ur"\Z" #正则表达式末尾以\Z结束
if re.match(regex, subject):
do_something()
else:
do_anotherthing()
3.创建一个匹配对象，然后通过该对象获得匹配细节(Create an object with details about how the regex matches (part of) a string)
regex=ur"" #正则表达式
match = re.search(regex, subject)
if match:
# match start: match.start()
# match end (exclusive): atch.end()
# matched text: match.group()
do_something()
else:
do_anotherthing()
4.获取正则表达式所匹配的子串(Get the part of a string matched ......
部分论坛新手们没警惕自己论坛数据库存在的危险，所以还是 决定以Dvbbs7.0为例，介绍一下如何保护好你的Access数据库 。闲话休说，请往下看：
1、给你的Access数据库加上密码保护（其实Access数据库 的密码保护非常脆弱，这里，只是给他多加上一把锁而已）。
a.打开MicroSoft Access软件，是用独占方式打开你的DV论 坛数据库（数据库默认位置为论坛根目录下的data/dvbbs7.mdb ）。
b.设置数据库密码，Access软件菜单项：工具——〉安全— —〉设置数据库密码。
2、修改你的数据库名称。
动网论坛7.0数据库默认名称为Dvbbs7.MDB，为了不被非法下载 以及跨库连接，所以我们应该把名称改为如下类似的格式：
#123data.asp
#&$%1*dv.asa
{ad}3、修改你论坛的conn.asp文件。
1）使用记事本或其他文本编辑软件来打开conn.asp文件， 打开后，你将看到如下几行代码：
’免费用户第一次使用请修改本处数据库地址并相应修改 data目录中数据库名称，如将dvbbs6.mdb修改为 dvbbs6.asp
Db = "data/dvbbs7.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
2）把Db = "data/dvbbs7.mdb"这一行里面� ......
Microsoft Jet OLE DB 4.0
Standard security:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;
With database password:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;
Workgroup (system database):
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:System Database=system.mdw;
Workgroup (system database) specifying username and password:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:System Database=system.mdw;User ID=myUsername;Password=myPassword;
DataDirectory functionality:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\myDatabase.mdb;User Id=admin;Password=;
.NET Framework Data Provider for OLE DB
Bridging to Jet OLE DB 4.0:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;
Microsoft Access ODBC Driver
Standard Security:
Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabas ......
SQLite 是一个嵌入式的联系数据库系统，运用十分广泛。在一些数据量不大的运用 程序中，假如运用 SQLite可以极大的降低部署时的工作量。 要在C#中运用 SQLite也很基本，只要找一个C#的wrapper就可以了，例如，我运用的就是来自
http://sqlite.phxsoftware.com/ 的一个dll，System.Data.SQLite. 下载下来的文件是SQLite-1.0.65.0-setup.exe。只要安装一下就可以运用了，特别方便。该程序契合 ADO.NET的规范，并且支撑 Visual Studio的可视化表设计器。
打开Visual Studio 2008，新建一个Console Application，为此项目添加System.Data.SQLite的引用。添加一个数据库连接，此时可以发觉，新建连接中有了一个SQLite Database Connection，挑选此类型的数据连接，并且新建一个文件，
test.db3. 接下来在新数据库中添加一张表。
下面开始为此表建立一个Data Access类，以展示在C#中如何 运用 SQLite，可以想象，和操作其他数据库是几乎一样的，感谢ADO.NET的功劳。
最先是一个实体类 Book.cs：
public class Book
{
private int id;
private string bookName;
private decima ......
最新文章 :