各位高手高手高高手，紧急，在线守候！并口的操作！

Question

不用汇编，用CreateFile打开LPT1就可以。
要找控件的话去torry找找吧。

Answer 1

小弟刚学delphi不久，以前用些bcb的
所以，请详细说明一下如何？
最好是给点例子之类的
帮帮忙，谢谢了。

Answer 2

FHandle := CreateFile(
                                'LPT1',
                                GENERIC_READ or GENERIC_WRITE,
                                0, // Not shared
                                nil, // No security attributes
                                OPEN_EXISTING,
                                FILE_ATTRIBUTE_NORMAL  ,
                                0 // No template
                              );
WriteFile( FHandle,p^,dwDataSize,nSent, nil);CloseHandle(FHandle);
FHandle:=0;

Answer 3

WriteFile( FHandle,p^,dwDataSize,nSent, nil);
这个函数的nSent位置参数到底该写什么数据类型？
我这样写：
sendbuf ：ansistring；
lensend ：integer；
sendbuf := Edit1.text；
writefile(AFile, sendbuf, sizeof(sendbuf), @lensend, nil);
编译提示：
[Error] Unit1.pas(51): Types of actual and formal var parameters must be identical
就在lensend参数处。
另外，有哪位兄台讲解一下delphi的指针，好吗？
谢谢了。

Answer 4

在这里LENSEND真接使用就可以了，最好把LENSEND定义为DWORD。
我估计这是DELPHI定义的一个错误，因为在HELP里确实是定义的指针。

Answer 5

writefile(hcom,@buf,sizeof(buf),n,nil);

Answer 6

奇怪
为什么
sendbuf ：ansistring；sendbuf := Edit1.text；
之后sendbuf是空呢？
如何把Edit1.text送给一个字符串呢？