我现在制作一个打铃系统,需要用delphi编写一个将MP3格式的文件通过串口发送到硬件的小程序.我想有SPCOMM控件来实现,但是我不知道怎样用它来发送文件,请各位高手帮我提供一些思路,最可有范例,可发送到我邮箱中,,非常感谢!
解决方案 »
- 为了让dbgrideh滚动条滚动时,活动记录不移动,用了memtableeh,但是现在删除不了数据了
- delphi程序 两个问题
- Delphi2005 .net问题
- 怎么样把多个相同的空间放在一个数组里面呢?
- 求救,关于dbgrideh!
- 一个常见的却比较有趣的问题
- 请教:如何设定Delphi控件字体的默认值?
- 高手挑站:菜鸟大放100分,如何在自己已有的特色上再继承其它FORM,使得在设计期间,就可看到被继承窗体的控件?
- 如何实现这样的功能?
- Win7 下 为什么 playsound那么慢。
- [高分求]客户需要自己灵活设置报表打印内容位置,如果开发?
- try finally end;优化的具体应用?
var
UnTypeFile: File;
Buffer: array[0..1023] of Char;
NumRead: Integer;
I: Integer;
s: string;
begin
AssignFile(UnTypeFile,'MyFile.dat');
Reset(UnTypeFile);
try
BlockRead(UnTypeFile, Buffer, 1, NumRead);
for I := 0 to Sizeof(buffer) - 1 do
s := s + Buffer[I];
Memo1.Lines.Add(S);
finally
CloseFile(UnTypeFile);
end;
end;
参考二:(向串口发送数据)
procedure TForm1.Button1Click(Sender: TObject);
begin
Comm1.CommName:=edit1.Text;
Comm1.BaudRate:=strtoint(edit2.Text);
Comm1.ByteSize:=Tbytesize(3);
Comm1.StopBits:=Tstopbits(0);
Comm1.Parity:=tparity(0);
try
self.Comm1.StartComm;
except
raise exception.Create('打开串口失败!');
end; StatusBar1.Panels[0].Text:=edit1.text+'已打开';
StatusBar1.Refresh;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
Comm1.StopComm;
StatusBar1.Panels[0].Text:=edit1.text+'已关闭';
StatusBar1.Refresh;
end;procedure TForm1.Button2Click(Sender: TObject);
var
str:Pchar;
count:integer;
begin
str:=pchar(edit3.Text);
count:=length(str);
if Comm1.WriteCommData(str,count) then
Memo1.Lines.Add('已发送'+inttostr(count)+'个字符')
else
raise exception.Create('发送错误');
end;