Article View: borland.public.cppbuilder.internet.socket
Article #3786Re: Problem with TIdTime
From: F_takaki
Date: Thu, 28 Apr 2005 05:03
Date: Thu, 28 Apr 2005 05:03
90 lines
3930 bytes
3930 bytes
both IdTime and IdTimeUDP no problem in my PC,
WinXP-pro(sp2), BCB6, Indy9.0.18.
show my example and source(Unit1.h, Unit1.cpp).
http://ftlabo.hp.infoseek.co.jp/temp/GUI.png
===== Unit1.h ==========================================
//---------------------------
#ifndef Unit1H
#define Unit1H
//------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "IdTimeUDP.hpp"
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <IdTime.hpp>
#include <IdUDPBase.hpp>
#include <IdUDPClient.hpp>
//------------------------------
class TForm1 : public TForm
{
__published:
TComboBox *ComboBox1;
TButton *Button1;
TButton *Button2;
TIdTime *IdTime1;
TIdTimeUDP *IdTimeUDP1;
TEdit *Edit1;
TLabel *Label1;
TLabel *Label2;
TEdit *Edit2;
TButton *Button3;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
private:
public:
__fastcall TForm1(TComponent* Owner);
};
//--------------------------------
extern PACKAGE TForm1 *Form1;
//--------------------------------
#endif
===== Unit1.cpp ===========================================
//------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//------------------------------------
#pragma package(smart_init)
#pragma link "IdTimeUDP"
#pragma resource "*.dfm"
TForm1 *Form1;
//------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//-----------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdTime1->Host=ComboBox1->Text;
Edit1->Text=IdTime1->DateTime;
Edit2->Text=IdTime1->Version;
}
//-----------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
IdTimeUDP1->Host=ComboBox1->Text;
Edit1->Text=IdTimeUDP1->DateTime;
Edit2->Text=IdTimeUDP1->Version;
}
//-----------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//-----------------------------------
"Jerry Xiao" <blackart0@sina.com.cn> wrote in message
news:42702ba1@newsgroups.borland.com...
>i get same error!
Technical Details
Message-ID:
<42706f0f$1@newsgroups.borland.com>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!news.moat.net!news-out.newsgroups.com!propagator2-sterling.newsfeeds.com!news-in.newsfeeds.com!in.nntp.be!caladan.landsraad.net!newsgroups.borland.com!not-for-mailReferences:
<425b1b4c@newsgroups.borland.com> <425b269b$1@newsgroups.borland.com> <425b2be5$1@newsgroups.borland.com> <425b6551$1@newsgroups.borland.com> <425f1490$1@newsgroups.borland.com> <425f4f35$1@newsgroups.borland.com> <425f62f7$1@newsgroups.borland.com> <42603253@newsgroups.borland.com> <426209d7$1@newsgroups.borland.com> <4264632a@newsgroups.borland.com> <4264c219$2@newsgroups.borland.com> <426535f0$1@newsgroups.borland.com> <4265ae66$1@newsgroups.borland.com> <426a2f93$1@newsgroups.borland.com> <42702ba1@newsgroups.borland.com>Show Full Headers
Complete Article Headers
X-Google-Thread: 11508e,d8d96485ad860d2b X-Google-Attributes: gid11508e,public X-Google-Language: ENGLISH,ASCII-7-bit From: "F_takaki" <jpanon@microsoft.com> Newsgroups: borland.public.cppbuilder.internet.socket References: <425b1b4c@newsgroups.borland.com> <425b269b$1@newsgroups.borland.com> <425b2be5$1@newsgroups.borland.com> <425b6551$1@newsgroups.borland.com> <425f1490$1@newsgroups.borland.com> <425f4f35$1@newsgroups.borland.com> <425f62f7$1@newsgroups.borland.com> <42603253@newsgroups.borland.com> <426209d7$1@newsgroups.borland.com> <4264632a@newsgroups.borland.com> <4264c219$2@newsgroups.borland.com> <426535f0$1@newsgroups.borland.com> <4265ae66$1@newsgroups.borland.com> <426a2f93$1@newsgroups.borland.com> <42702ba1@newsgroups.borland.com> Subject: Re: Problem with TIdTime Date: Thu, 28 Apr 2005 14:03:54 +0900 Lines: 91 MIME-Version: 1.0 Content-Type: text/plain; charset="iso-2022-jp" Content-Transfer-Encoding: 7bit X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.2180 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180 NNTP-Posting-Host: 222.0.22.40 Message-ID: <42706f0f$1@newsgroups.borland.com> X-Trace: newsgroups.borland.com 1114664719 222.0.22.40 (27 Apr 2005 22:05:19 -0700) Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!news.moat.net!news-out.newsgroups.com!propagator2-sterling.newsfeeds.com!news-in.newsfeeds.com!in.nntp.be!caladan.landsraad.net!newsgroups.borland.com!not-for-mail