2022-11-20 122 0

program ModTest;{$APPTYPE CONSOLE}usesSysUtils,CPort,Windows,SyncObjs;varComPort: TComPort;Events: TComEvents;Answer, Data: string;Step: Integer;Event: TEvent;function CtrlHandler(CtrlType: LongWord): Boolean;beginEvent.SetEvent;Result := True;end;beginE

2022-11-20 50 0

var lst_s:TStrings ; s:UTF8String; .... lst_d.Add(s); lst_d.WriteBOM := True;//指定带BOM lst_d.SaveToFile('G:\docs\utf8test.txt', TEncoding.UTF8);

2022-11-20 60 0

delphi 去除右边指定字符var str:string;begin str := 'abcdefghigklmn'; Delete(str,Length(str)-4,5); ShowMessage(str);end;

2022-11-20 257 0

function StrToASCIIStr(const S: string): string;var i: Integer;begin for i:= 1 to Length(S) do begin if i = 1 then Result:= IntToHex(Ord(S[1]), 2) else Result:= Result + ' ' + IntToHex(Ord(S[i]), 2); end;end;procedure TForm1.F

2022-11-20 39 0

procedure TForm1.FormCreate(Sender: TObject);varhCom:THandle;begin//=========================//打开//以读写方式打开com1hCom:=CreateFile(('COM1'),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0);//关闭CloseHandle(hcom);end;

2022-11-20 28 0

//清空FDMemTable1.EmptyView;

2022-11-20 56 0

如果你已经会使用SPCOMM且出现10个以上的串口问题请改一下串口名COM1.CommName='//./com18';就这样 加'//./'就行了我也不知道什么回事.......比如Comm1.CommName := '//./'+ComboBox1.Text;//./com18是windows里边的SymbolLinkName，这个在WINAPI里边就需要这 样写，SPCOMM的这部分的源代码如下： procedure TComm.StartComm;

2022-11-20 149 0

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, MSCommLib_TLB, Math, ExtCtrls; type TForm1 = class(TForm) infoMemo: TMemo; sendMemo: TMemo; Button1: TButton;