Pytanie : DELPHI 2010 -- INDY 9 lub INDY 10

jako powikłany zastosowanie od delphi 7 delphi 2010 I#m walczący kłopot mój kod
again.

is the indy materiał wersja 9 lub 10 che przychodzić z mój D2010???


Prawo autorskie:
(c) 1993-2005, Czad Z. Hower i the Indy Kopcować Załoga. Wszystkie dobro reserved.
}
{
$Log$
}
{
Rev 1.38 1/15/05 2:14: 58 PM RLebeau
Usuwać wirtualny specifier od SetConnectTimeout () i SetReadTimeout (), not
jakaś descendants.
 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

TIdTCPClientCustom = klasa (TIdTCPConnection)
  ochraniać
    FBoundIP: Sznurek;
    FBoundPort: TIdPort;
    FBoundPortMax: TIdPort;
    FBoundPortMin: TIdPort;
    FConnectTimeout: Integer;
    FDestination: sznurek;
    FHost: sznurek;
    FIPVersion: TIdIPVersion;
    FOnConnected: TNotifyEvent;
    FPassword: sznurek;
    FPort: TIdPort;
    FReadTimeout: Integer;
    FUsername: sznurek;
    FReuseSocket: TIdReuseSocket;
    //
    FOnBeforeBind: TNotifyEvent;
    FOnAfterBind: TNotifyEvent;
    FOnSocketAllocated: TNotifyEvent;
    //
    procedura DoOnConnected; wirtualny;
    funkcja MakeImplicitClientHandler: TIdIOHandler; wirtualny;
    //
    procedura SetConnectTimeout (const AValue: Integer);
    procedura SetReadTimeout (const AValue: Integer);
    procedura SetReuseSocket (const AValue: TIdReuseSocket);
    procedura SetBoundIP (const AValue: Sznurek);
    procedura SetBoundPort (const AValue: TIdPort);
    procedura SetBoundPortMax (const AValue: TIdPort);
    procedura SetBoundPortMin (const AValue: TIdPort);
    procedura SetHost (const AValue: sznurek); wirtualny;
    procedura SetPort (const AValue: TIdPort); wirtualny;
    procedura SetIPVersion (const AValue: TIdIPVersion); wirtualny;
    //
    procedura SetOnBeforeBind (const AValue: TNotifyEvent);
    procedura SetOnAfterBind (const AValue: TNotifyEvent);
    procedura SetOnSocketAllocated (const AValue: TNotifyEvent);
    //
    procedura SetIOHandler (AValue: TIdIOHandler); override;
    procedura InitComponent; override;
    //
    funkcja GetReadTimeout: Integer;
    funkcja GetReuseSocket: TIdReuseSocket;
    //
    majątkowy Gospodarz: smyczkowy read FHost pisać SetHost;
    majątkowy IPVersion: TIdIPVersion read FIPVersion pisać SetIPVersion;
    majątkowy Hasło: smyczkowy read FPassword pisać FPassword;
    własność Port: TIdPort read FPort pisać SetPort;
    własność Username: smyczkowy read FUsername pisać FUsername;
  społeczeństwo
    procedura Łączyć; przeciążenie; wirtualny;
    // Potomek być ważniejszym i nie jako brak params tak, że potomek
    // musieć o the argument.
    // Także rozszczepiać dalej użycie od C# gdy ono mieć fakultatywny
    // params
    procedura Łączyć (const AHost: sznurek); przeciążenie;
    procedura Łączyć (const AHost: sznurek; const APort: TIdPort); przeciążenie;
    funkcja ConnectAndGetAll: sznurek; wirtualny;
    //
    majątkowy BoundIP: smyczkowy read FBoundIP pisać SetBoundIP;
    majątkowy BoundPort: TIdPort read FBoundPort pisać SetBoundPort brak DEF_PORT_ANY;
    majątkowy BoundPortMax: TIdPort read FBoundPortMax pisać SetBoundPortMax brak DEF_PORT_ANY;
    majątkowy BoundPortMin: TIdPort read FBoundPortMin pisać SetBoundPortMin brak DEF_PORT_ANY;
    //
    majątkowy ConnectTimeout: Integer read FConnectTimeout pisać SetConnectTimeout;
    majątkowy ReadTimeout: Integer read GetReadTimeout pisać SetReadTimeout;
    majątkowy ReuseSocket: TIdReuseSocket read GetReuseSocket pisać SetReuseSocket brak rsOSDependent;
    //
    majątkowy OnBeforeBind: TNotifyEvent read FOnBeforeBind pisać SetOnBeforeBind;
    majątkowy OnAfterBind: TNotifyEvent read FOnAfterBind pisać SetOnAfterBind;
    majątkowy OnSocketAllocated: TNotifyEvent read FOnSocketAllocated pisać SetOnSocketAllocated;
    //
  publikować
    majątkowy OnConnected: TNotifyEvent read FOnConnected pisać FOnConnected;
  końcówka;

Odpowiedź : DELPHI 2010 -- INDY 9 lub INDY 10

AFAIK być wciąż well wspierać (ostatni Dev uwolnienie datować Lipiec 25, 25 dzień temu http://indy.fulgan.com/zip/)

The 10 wersja potrzebować dla kompatybilność i implamentations z .net. Długi czas być dlaczego tam  być w ten sposób wiele różnica między 9 i 10, ale I być dosyć pewny że the poparcie wciąż wola   istnieć dla długi czas.
Inne rozwiązania  
 
programming4us programming4us