🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.internet.socket
Article #3786

Re: Problem with TIdTime

#3786
From: F_takaki
Date: Thu, 28 Apr 2005 05:03
90 lines
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-mail
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>

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