如何用Delphi编写拨号程序??急!急!急!急!(100分)

  • 主题发起人 主题发起人 参与
  • 开始时间 开始时间

参与

Unregistered / Unconfirmed
GUEST, unregistred user!
1>抛弃IE,抛弃现有的拨号程序,用Delphi编写程序直接实现通过电话线传输文件. 计算机--Modem--电话线--Modem--计算机
2>如何通过Internet,访问远程的SQL Server
如何实现?? 急!!
 
1>不是还需要拨号网络吗?给你个控件RasComp还不行?
要使用串口直接传数据,也不用Modem了

2>通过TCP/IP没问题呀?可是你真敢把SQLServer连在
Internet上?
 
参与老兄

拨号网络还是必要的, 可以省却很多不必要的编程, 关键是怎样使用它. 最简单的
文件传输可以通过Win95的文件共享或者映射驱动器来实现, 只需在两端的机器上都
装上NetBEUI协议即可.
 
问题1:
你可以用 WINDOWS API函数 CreateFile() 得到 Com Port 的句柄,
然后用标准的文件IO 和 COM PORT通讯

下面是一段例子

Var
hCommFile : THandle;

Procedure TForm1.Button1Click(Sender : TObject);
Var
PhoneNumber : String;
CommPort : String;
NumberWritten : LongInt;
Begin
PhoneNumber := 'ATDT 010-62988861' + #13 + #10;
CommPort := 'COM2';
{打开 comm port}
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE,
0,
Nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
If hCommFile = INVALID_HANDLE_VALUE Then
Begin
ShowMessage('不能打开 ' + CommPort);
exit;
End;

{拨号}
NumberWritten := 0;
If WriteFile(hCommFile,
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
Nil) = false Then Begin
ShowMessage('无法写 ' + CommPort);
End;
End;

Procedure TForm1.Button2Click(Sender : TObject);
Begin
{关闭comm port}
CloseHandle(hCommFile);
End;


2. 通过INTERNET访问你的远程SQL SERVER 需要你有WIN NT的登陆权限
SQL SERVER有 WEB WIZARD功能,你可以通过WEB WIZARD 提供的存储过程
访问SQL SERVER的数据
建议你做一个登陆网页CGI(ISAPI,NSAPI),如果口令正确,则可以访问到正
确的网页存取数据,就象这个大富翁论坛一样,没有正确的口令访问不到
正确的数据

顺便提一句
还可以试一下WINDOWS NT的RAS远程访问,可以直接登陆到NT并访问SQL SERVER
 
Hi there,

我已经email给你一个叫做RasDial的Delphi源程序, 其功能是直接用Delphi编的
程序拨号上网, 利用Win95的拨号网络设置, 但是直接拨号.

要想实现两台机器之间的点对点文件传输方法很多, 最简单的是两台win95机器同时
运行超级终端, 将对方的"猫"设置成自动应答即可.
 
到深度历险上下载一个diaup控件,你会收到意想不到的效果!
 
通过TCP/IP访问SQL Server用不着什么NT权限,
只要有数据库本身的口令即可.
 
NT 和 SQL SERVER 有很好的集成,只要设置好NT和SQL,只要一个密码!
huizhang你的哪个东西不防寄给斑竹,好东西...
 
参与:
"计算机--Modem--电话线--Modem--计算机"式的Delphi编程非常简单,
您可以利用网上流行的SPCOMM构件或者用VB的Comm32来直接控制Modem,再
自己制定一个规程,便可以实现文件的传输. 用SPCOMM和VB.Comm我都实现
过, 您如果要,我可以mail一份给您.
用Windows的API也能实现,但是我觉得比较繁, 您如果非得用API来做,
我手头也有一些资料,但是没有试过, 不知灵不灵.
NT & SQL Server我没有直接搞过,请上面的几位大虾继续发表高论.
 
我这里有全套拨号控件原码,以及拨号应用的源代码(包括定时拨号TCP/IP),连接SQL
需要原码,可以贴上(不过太长6XK),或EMAIL给你.
 
李亚平,如果方便给我寄一份,谢谢!
cjcjc@online.sh.cn
 
如果方便给我寄一份,谢谢!
daiji@163.net
 
我有一个拨号的控件,很好用,我用它写过程序。
如果你要可以E-mail给你!
 
好东西<font color=red>@</font>_<font color=red>@</font>
谢谢!<a href="xftang@shtdu.edu.cn">Email:xftang@shtdu.edu.cn</a>
 
李亚平,能否也给我来一份? E-mail: wtiebo@263.net
 
还有我CJCJC@ONLINE.SH.CN
 
还有我 !@#$%&* ##:--O
 
Me Too!
Sqw@ynmail.com
 
这个问题应该为谁要!
 
李亚平先生:
把你的好东西方到你的主页上得了,你的主页我常去,做的很好!
也给我来一份? E-mail: hongguang@bigfoot.com
 
后退
顶部