如何用bcb顯示接收到資料的時間? |
|
答題得分者是：frontier
|
|
ociris
一般會員   發表：3 回覆：4 積分：1 註冊：2009-01-17 發送簡訊給我 |
|
|
frontier
初階會員  發表：0 回覆：27 積分：30 註冊：2008-11-20 發送簡訊給我 |
|
|
ociris
一般會員 發表：3 回覆：4 積分：1 註冊：2009-01-17 發送簡訊給我 |
我是希望收到資料後將顯示的時間存入txt
以下是我寫的儲存程式 //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "Comm" #pragma resource "*.dfm" TForm1 *Form1; #include FILE *outf; int n; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { Comm1->PortOpen = true ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Comm1->PortOpen = false ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Comm1ReceiveData(TObject *Sender) { String data; Memo1->Lines->Add(Comm1->Input) ; Edit1->Text = Comm1->Input ; data = Edit1->Text ; fprintf(outf,"%s ",data); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Comm1->PortOpen = true ; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { outf = fopen("e:\\000\\new.txt","w"); } //---------------------------------------------------------------------------
編輯記錄
ociris 重新編輯於 2009-01-19 14:21:46， 註解 無‧
|
|
frontier
初階會員 發表：0 回覆：27 積分：30 註冊：2008-11-20 發送簡訊給我 |
fprintf(outf,"%s ",data); ---> fprintf(outf,",Time: %t : Data: %s ",GetTime(),data); ? ===================引 用 ociris 文 章=================== 我是希望收到資料後將顯示的時間存入txt 以下是我寫的儲存程式 //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "Comm" #pragma resource "*.dfm" TForm1 *Form1; #include FILE *outf; int n; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { Comm1->PortOpen = true ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Comm1->PortOpen = false ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Comm1ReceiveData(TObject *Sender) { String data; Memo1->Lines->Add(Comm1->Input) ; Edit1->Text = Comm1->Input ; data = Edit1->Text ; fprintf(outf,"%s ",data); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Comm1->PortOpen = true ; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { outf = fopen("e:\\000\\new.txt","w"); } //--------------------------------------------------------------------------- |
|
ociris
一般會員 發表：3 回覆：4 積分：1 註冊：2009-01-17 發送簡訊給我 |
發表時間：2009-01-17 21:24:22
IP:140.134.xxx.xxx 訂閱
系統時間：2024-04-25 21:25:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |