Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Potreban Turbo Delphi

[es] :: Pascal / Delphi / Kylix :: Potreban Turbo Delphi

[ Pregleda: 5011 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

milance_kg
Software development engineer

Član broj: 59131
Poruke: 185
212.200.170.*



Profil

icon Potreban Turbo Delphi14.01.2007. u 23:31 - pre 3907 dana i 14h
Zanima me da li neko iz ili okoline Kragujevca ima "čist" Turbo Delphi,
pošto sam greškom nabavio Turbo Delphi .net (sa prereqs-om), koji ću isto da rado podelim
sa bližim ili daljim zainteresovanim korisnicima ovog bespatnog Borland-ovog alata.

Inače licenca za Turbo proizvode ima ograničenje za korišćenje jednog proizvoda
koja lako može da se zaobiđe kreiranjem više USER-a na istom računaru, pa
tako može da se instališu svi Turbo-i (Delphi, C++, .Net, itd) i valjda
više naloga na Borlandu, i novih e-mail adresa (tu je uvak mail yahoo ili gmail),
i prijavljivanje roditelja, žene, ili Paje Patka i sl.,
i dosadno START->Log Off->Switch User
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2416



Profil

icon Re: Potreban Turbo Delphi15.01.2007. u 02:27 - pre 3907 dana i 11h

> Inače licenca za Turbo proizvode ima ograničenje za korišćenje jednog proizvoda
> koja lako može da se zaobiđe kreiranjem više USER-a na istom računaru, pa
> i dosadno START->Log Off->Switch User

Nepotrebno, downloaduj TurboMerger.
 
Odgovor na temu

milance_kg
Software development engineer

Član broj: 59131
Poruke: 185
212.200.181.*



Profil

icon Re: Potreban Turbo Delphi24.01.2007. u 09:45 - pre 3898 dana i 4h
Bas hvala na pomoci (za nista)!

Uspeo sam da nabavim Turbo Delphi zahvaljuci
Aci iz Netpro-a (suvlasnik spomenute firme za provajding iz Kragujevca),
kome se veoma zahvaljujem.

Inace ostaje moja ponuda za zaintersovane iz KG-a i blize (da se ne bi mucili)
za narezivanje Turbo Delphi-a i for .Net-a

p.s.

Javite se na p.m.(Privatne poruke).

 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2416



Profil

icon Re: Potreban Turbo Delphi24.01.2007. u 15:09 - pre 3897 dana i 23h
> Bas hvala na pomoci (za nista)!

Nema na čemu, a drugi put ću razmisliti.

Odgovor na tvoj drugi problem je TurboMerger, svi Turbo proizvodi mogu da paralelno funkcionišu bez akrobacija sa dodatnim userima ili logoff/login.

 
Odgovor na temu

milance_kg
Software development engineer

Član broj: 59131
Poruke: 185
212.200.181.*



Profil

icon Re: Potreban Turbo Delphi24.01.2007. u 18:53 - pre 3897 dana i 19h
Dobro znam za to, a i nisam zainteresovan za Dot Net.
(Mozda sam nepaznjom nekog uvredio - molim vas izvinite)
Medjutim ispravili su tu gresku sa 'dclusr'-om, koju je opet lako zaobici,
ali sve legalno (ne sme da se dira u u izvrsni kod aplikacje, da ne bi bilo obicno krekovanje),
nego necu da duzim, ako neko bude zainteresovan - odgovorit cu.

Pozdrav.

[Ovu poruku je menjao milance_kg dana 24.01.2007. u 20:20 GMT+1]
 
Odgovor na temu

milance_kg
Software development engineer

Član broj: 59131
Poruke: 185
212.200.181.*



Profil

icon Re: Potreban Turbo Delphi27.01.2007. u 15:31 - pre 3894 dana i 22h
Evo nasao sam malo vremena da objasnim postupak
dodavanja komponenata u Turbo Delphi Explorer
(racunajuci InterBaseExpress, Indy, IntraWeb, Sample i TeeChart),
ako ga je neko skorije preuzeo sa net-a, kroz 'Dclusr.dpk'
(za razliku od avgustovske verzije iz 2006 gde
su nepaznjom ostavili otvorena vrata bas kroz
'Dclusr.dpk', sto je kasnije ispravljeno i gde nije bilo
moguce dodati spomenute kompnente bez nekog krekovanja),
no da ne duzim nego:
prvo je potrbno kreirati 'Loader.pas' fajl ili ga preuzeti sa
'http://kazantsev.nm.ru/packloader.zip', u kome je

Code:

Unit Loader;

//
// Ìîäóëü ñîäåðæèò ôóíêöèîíàë çàãðóçêè ñòîðîííèõ ïàêåòîâ â ñðåäó Turbo Delphi Explorer.
// Copyright (c) 2006 Êàçàíöåâ Àëåêñåé (kazantsev.alexey@mail.ru)
//

Interface

Implementation

Uses

 Classes, SysUtils, Windows,Registry;

//
Procedure _CheckRegisterProcAndCall(Const Name : String; NameType : TNameType; Flags : Byte; Param : Pointer);
Var

 RegProc : TProcedure;

Begin

 If NameType = ntContainsUnit Then
  Begin

   @RegProc := GetProcAddress(HMODULE(Param), PAnsiChar('@' + Name + '@' + 'Register$qqrv'));

   If Assigned(RegProc) Then
    RegProc;

  End;

End;
//

//
Procedure _LoadPackage(Const Name : String);
Var

 Flags  : Integer;
 Handle : HMODULE;

Begin

 Handle := LoadPackage(Name);

 If Handle <> 0 Then
  GetPackageInfo(Handle, Pointer(Handle), Flags, _CheckRegisterProcAndCall);

End;
//

//

Var

 LIndex   : Integer;
 FileName : Array[0 .. MAX_PATH - 1] Of AnsiChar;
 PackName : String;
//

Initialization

 Try

   If GetModuleFileName(hInstance, @FileName, SizeOf(FileName)) > 0 Then
   With TStringList.Create Do
    Try

     LoadFromFile(ExtractFilePath(FileName) + 'packages.lst');

     For LIndex := 0 To Count - 1 Do
      Begin

       PackName := Trim(Strings[LIndex]);

       If (Length(PackName) > 0) And (PackName[1] <> ';') Then
       begin
        _LoadPackage(PackName);
       end;
      End;

    Finally

    Free;

    End;

 Except

 End;




i dodati u njega
(to sam ja licno dodao)

Code:

Var
 Reg: TRegistry;
 Key: string;
Finalization

  begin

  Reg := TRegistry.Create;

  try

    Reg.RootKey := HKEY_CURRENT_USER;
    Key := 'Software\Borland\BDS\4.0\Package Cache\dclusr100.bpl';

    if Reg.OpenKey(Key, True) then

    begin

      Reg.WriteInteger('Package Age', 909610468);
      Reg.CloseKey;

    end;

  finally

    Reg.Free

  end;

end;


kako sam dosao do ovog, pa izgubio sam ceo dan uporedjujuci izmene u registry bazi,
no vazno je da radi.

E sad taj fajal dodati u prazan 'Dclusr.dpk' ('dclusr100.bpl' desni klik pa add)

i u samom dclusr.dpk-u izmeniti

Code:

{$R *.res}


u

Code:

//{$R *.res}


i odmah ispod '//{$R *.res}' dodati

Code:

{$R 'dclusr.dcr'}


a 'dclusr.dcr' je prilozen sa ostalim fajovima na dnu mog posta
(napravite backup od ranije instalisanih 'dclusr.dpk' i 'dclusr.res'-a iz 'lib' foldera,
a prilozene iz 'dclusr.zip'-a - 'dclusr.dpk' , 'dclusr.dcr' i 'Loader.pas' ubacite u 'lib'
pa samim time mozete da preskocite prethodbe korake)

Izvrsite compile i install,
kreirajte fajl 'packages.lst'
(dodajte u isti pocev od donje linije
C:\Program Files\Borland\BDS\4.0\Bin\dclib100.bpl
C:\Program Files\Borland\BDS\4.0\Bin\dclsmp100.bpl
C:\Program Files\Borland\BDS\4.0\Bin\dcltee100.bpl
C:\Program Files\Borland\BDS\4.0\Bin\dclIndyCore100.bpl
C:\Program Files\Borland\BDS\4.0\Bin\dclIndyProtocols100.bpl
C:\Program Files\Borland\BDS\4.0\Bin\dclintraweb_80_100.bpl
)

i dodajte ga u
'C:\Documents and Settings\<user>\My Documents\Borland Studio Projects\Bpl\'

mozete svaku komponentu da kompajlirate i da dodate u 'packages.lst'
npr. 'C:\Documents and Settings\<user>\My Documents\Borland Studio Projects\Bpl\FREEREP10.bpl'
i pri sledecem pokretanju TD-a u glavnom meniju 'component->Instal Packages..->Add..' i izaberete
kompajliranu kompnentu u 'C:\Documents and Settings\<user>\My Documents\Borland Studio Projects\Bpl\FREEREP10.bpl' i cekirajte je.

p.s.

Potrebno je dva-tri pokretenje TD-a posle ovih koraka
da bi sve korektno proradilo.


[Ovu poruku je menjao milance_kg dana 27.01.2007. u 16:55 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Potreban Turbo Delphi

[ Pregleda: 5011 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.