Waga aplikacji.

[Bezel21]

Cześć

Mam mały problem, - jest nim waga aplikacji konsolowej.
Składa się ona z krótkiego kodu:

program Project2;

{$APPTYPE CONSOLE}

uses
 SysUtils, HGGk;

var
  Hgg : THggk;

begin
  Hgg := THggk.Create(nil);
  Hgg.Number := StrToInt('CENZOR XD');
  Hgg.Password := 'CENZOR XD';
  Hgg.Host := '91.197.13.33';
  Hgg.Status := UsAvailable;
  Writeln('Laczenie...');
try
  Hgg.Connect(-1);
finally
  Writeln('Polaczono');
  Readln;
end;

end.

I działa, ale nie mam pojęcia dla czego waży aż 428 kb!
Rozmiar komponentu HGGK - 46,3 KB (bajtów: 47 507).
Proszę o pomoc, wyjaśnienia

 

[Mo4x]

Jakbyś mógł rzucić linka do tego unitu HGGk

 

[Bezel21]

<div class='quotetop'>CYTAT(Mo4x @ 14.06.2009, 19:43) <{POST_SNAPBACK}></div>

Jakbyś mógł rzucić linka do tego unitu HGGk

[/b]

Link do komponentu HGGk:

CLICK

@edit
Rzecz, która bardzo mnie zdziwiła:

zwykła aplikacja z indentycznym kodem waży 453 KB.

 

[Mo4x]

Może rozmiar jest taki przez to, że w sekcji Uses pliku HGGk.pas jest:

uses
  Windows, Messages, SysUtils, Classes, ExtCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

Ja bym spróbował wywalać po kolei i sprawdzać czy wciąż działa, jeżeli działa to znaczy, że było niepotrzebne

 

[Bezel21]

Niestety, waga ta sama.

 

[Mo4x]

To przez te moduły, usunąłem z Uses plik ExtCtrls i od razu rozmiar aplikacji zmienił się na około 110 KB.
Ten komponent HGGk, uzywa zbyt "wysokopoziomowych" komponentów. Jak ja tam widziałem na przykład TTimer, a przecież wystarczyłaby funkcja winapi SetTimer i rozmiar o wiele mniejszy.

Myślę, że jedyny sposób to przepisać komponent HGGk, aby był lżejszy.

 

[Bezel21]

<div class='quotetop'>CYTAT(Mo4x @ 14.06.2009, 20:14) <{POST_SNAPBACK}></div>

To przez te moduły, usunąłem z Uses plik ExtCtrls i od razu rozmiar aplikacji zmienił się na około 110 KB.
Ten komponent HGGk, uzywa zbyt "wysokopoziomowych" komponentów. Jak ja tam widziałem na przykład TTimer, a przecież wystarczyłaby funkcja winapi SetTimer i rozmiar o wiele mniejszy.

Myślę, że jedyny sposób to przepisać komponent HGGk, aby był lżejszy.[/b]

Za dużo roboty z tym przepisywaniem

ale dzieki za sposób

 

[thc_flow]

No niestety ale Delphi ma to do siebie że używa komponentów które są w paczkach, przez co kod jest łatwiejszy do wyskrobania ale dostajemy też masę funkcji których nie używamy, wystarczy używać WinAPI zamiast gotowych paczek a waga będzie o wiele mniejsza. Przy okazji, zobacz jakimś edytorem RES czy nie ma w exeku dołączonych bitmap i kursorów które w niektórych komponentach się doklejają a nie są wcale potrzebne.

 

[kanar123]

Wywal funkcje których nie używasz

 

[thc_flow]

@kanar, no to miłej zabawy w grzebaniu w kilkudziesięciu plikach ;P Ogólnie to polecam Lazarusa, jakoś tak mniejsze programy robi

 

[djmentos]

WinSock waży tylko 15kb, a jaki funkcjonalny ;p

 

[Legalnl]

Zawsze jeszcze mozna użyć kompresora UPX, chcąc tylko zmniejszy jego wage

ale masa bedzie taka sama

 

[djmentos]

znalazł się fizyk xD

tylko po UPXie wykrywalność w górę leci.

 

[adikx]

Chcesz mieć mały exe. Musisz wywalić wszystkie moduły z wiązane z klasami. Dzięki temu będzie ważyć koło 50 kb ale tylko winapi i biblioteki systemowe.

 

[Bezel21]

Pozostawiłem tylko:

uses
SysUtils, Classes, ExtCtrls, IdTCPClient;

Ponieważ bez tych modułów kod nie działa, a całego źródła nie mam sił edytować, ktoś chętny?

 

[Mo4x]

Możesz jeszcze wyrzucić ExtCtrls, tylko wtedy będziesz musiał z Timer'ów przepisać na WinAPI SetTimer();. To nie jest wcale dużo do pisania.

 

[shoock12]

Ten HGGk jest zgodny z GG8.0

 

[Bezel21]

Należy w nim tylko naprawić OnMessage i MessageContent co się z tym wiąże

 

[shoock12]

<div class='quotetop'>CYTAT(Bezel21 @ 18.06.2009, 16:06) <{POST_SNAPBACK}></div>

Należy w nim tylko naprawić OnMessage i MessageContent co się z tym wiąże

[/b]

Nie trzeba. Mi odbierał poprawnie(to znaczy, wysłałem z 5 wiadomości i zaczął odbierać).

 

[Bezel21]

To faktycznie działa