TurboPower_AsyncProfessional XE7 de Calisirmi (ÇÖZÜLDÜ)

[adelphiforumz]

S.A.

Başlıktanda anlaşılacağı üzere TurboPower_AsyncProfessional XE7 de çalışırmı

Teşekkürler

[mrmarman]

Merhaba.

- Üçüncü parti vazgeçilmez bileşen paketlerinden olan AsyncPro vb. paketleri lazım oldukça Delphi XE sürümlerine dönüştürmeye gayret ediyorum.

- XE10 için bir düzenleme yapmıştım sizinle onu paylaşayım.

TurboPower Async Professional 4.07 Delphi XE10 için düzenlemiş halinin download linki

- Bilirsiniz versiyonlar arası uyum sorunu olan yerlerde düzeltme yapmak zorunda kalınıyor. Örneğin

Kod: Tümünü seç

Var
  FormatSet  : SysUtils.TFormatSettings; // by Muharrem ARMAN

Kod: Tümünü seç

  lblDateSample.Caption := '( ' + LowerCase( FormatSet.ShortDateFormat ) + ' )';
  lblTimeSample.Caption := '( ' + FormatSet.ShortDateFormat + ' )';

şeklinde çalıştı. Hal bu ki PUBLIC tanımlı ShortDateFormat eskiden kendiliğinden SysUtils referanslı olarak kendiliğinden kullanılabiliyordu.

XE7 ile de çalışması lazım ama elimde olmadığından test edemiyorum sonucu bildirin.

[adelphiforumz]

S.A.
İyi Bayramlar
component buşld oluyor fakat install dediğimde '01.01.1970' not declarated diye bir hata veriyor

[mrmarman]

Çözümü kolay.

Aşağıda şu anki göreceğin halini verdiğim procedure içerisinde DateSeparator ifadesini

Kod: Tümünü seç

FormatSet.DateSeparator := '/';

olarak değiştirip

Kod: Tümünü seç

TmpDateTime                := StrToDateTime('01.01.1970');

satırındaki '01.01.1970' ifadesini '01/01/1970' olarak değiştip öyle yap. Çözülecektir.

Daha önce benim de başımı ağrıtmıştı ben de tersi şekilde çözmüştüm.

Kod: Tümünü seç

procedure InitializeUnit;
var
  TmpDateSeparator : char;
  TmpDateFormat : string[15];
  TmpDateTime : TDateTime;
  FormatSet  : SysUtils.TFormatSettings; // by Muharrem ARMAN
begin
  {Set Unix days base}
  TmpDateFormat              := FormatSet.ShortDateFormat;
  TmpDateSeparator           := FormatSet.DateSeparator;
  FormatSet.DateSeparator    := '.';
  FormatSet.ShortDateFormat  := 'mm.dd.yyyy';
  TmpDateTime                := StrToDateTime('01.01.1970');
  UnixDaysBase               := Trunc(TmpDateTime);
  FormatSet.DateSeparator    := TmpDateSeparator;
  FormatSet.ShortDateFormat  := TmpDateFormat;

  {$IFNDEF Win32}
  Crc32TableOfs := Ofs(Crc32Table);
  {$ENDIF}

  {Register protocol window class}
  apRegisterProtocolClass;
end;

[adelphiforumz]

S.A.
mrmarman teşekkürler dediğiniz şekilde çözüldü