谁能给我个简单的例子
delphi接受UDP数据包的 要接收数组的
最好是用 IdTCPserver1的
最好还有发送的部分
本人菜鸟，谢谢各位了！！
楼上给的是TCP的吧 我要UDP的
谢谢！！
引用
最好是用 IdTCPserver1的
这不是你写的吗
对不起我写错了
我要IdUDPClient1
不好意思
proce ......
主窗体:
Delphi(Pascal) code:
procedure TfrmMain.btnResumeClick(Sender: TObject);
begin
myThread := TClientThread.Create(LeftPart(cbbServer.Text, ':'), StrToInt(RightPart(cbbServer.Text, ':')));
myThread.Resume;
mmoLog.Lines.Add('线程已激活');
end;
procedure TfrmMain.btnSuspendClick( ......
Delphi(Pascal) code:
library HealthDocDll;
uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
HealthDoc in 'HealthDoc.pas' {frmHealthDoc},
pub in 'pub.pas';
{$R *.res}
procedure ShowForm(DoctorName,UserName:string);
begin
sDoctorName:=DoctorName;
sUserName:=UserName; ......
例子程序见附件，用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := Node.ChildNodes.Get(i);
shapetype := cNode.NodeName;
if (shapeType = 'line') then
......
定义：
type
pm= packed record { IO记录 }
Name:string[16]; { IO名称 }
CHn:Byte; {输入通道号 }
Pvh:Double; { 量程上限 }
Pvl:Double; { 量程下限 }
DW:string[8]; { 量程单位 }
Bjh:D ......
edit.begindrag(false,10);表面看应该是开始拖动里面的false,10参数本别对应什么？
procedure TDragForm.ListDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := True;
if (Source = Edit1) and
((Sender as TCu ......
最新文章 :