| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Финальная сборка DLL

Страницы:   < 1 2 >

Ega23 ©   (2005-02-08 09:46:00) 

Вчера про DLL вопрос задавал. Все проблемы победил, но теперь эта сволочь 542К после билда занимает.
Все опции, типа include TD32 info отключил.
Чего бы ещё отключить можно?   :о)

---

Ega23   (2005-02-08 09:51:00) [21]

2 Просто Джо ©   (08.02.05 09:49) [2]
Выкинь VersionInfo. Еще пару килобайт скинешь. ;)

Даже и не включал.

---

Ega23   (2005-02-08 09:50:00) [22]

c VCL внутри библиотеки работаешь ?

К сожалению. Да библиотека-то из одной функции, вот:


uses
 SysUtils,
 Classes,
 dbtables
 ;

{$R *.RES}

//*************************************************************************************

function GetNewParam(aAliasName:PChar;var pd:PChar):Cardinal; StdCall;
   function CodeIt(aStr,aKey:string):string;
   var  s:string;
   begin
     Result:=S;
   end;

const
stdsql='select LimitNum from dbo.paramsglb';
xkey='836519';

var
DB:TDataBase;
Qu:TQuery;
ss:string;

begin
Result:=0;
try
  DB:=TDataBase.Create(nil);
  try
   With DB do
    begin
     AliasName := String(aAliasName);
     DatabaseName := 'BD0';
     LoginPrompt:=False;
     Params.Clear;
     Params.Add('USER NAME=KEDR0');
     Params.Add('SQLQRYMODE=SERVER');
     Params.Add('PASSWORD=');
     Connected:=True;
    end; //With DB do
   Qu:=TQuery.Create(nil);
   try
    With Qu do
     begin
      DatabaseName:=DB.DatabaseName;
      RequestLive:=True;
      SQL.Text:=stdsql;
      Open;
      if (Active) and (not IsEmpty) then
       begin
        ss:=Fields[0].AsString;
        ss:=CodeIt(ss, xkey);
        pd:=StrPCopy(pd, ss);
       end;
     end;
   finally
    Qu.Active:=False;
    Qu.Free;
   end;
  finally
   DB.Connected:=False;
   DB.Free;
  end;
except
 Result:=$FFFFFFFF;
end;
end;

//*************************************************************************************

exports

GetNewParam    name    'GetNewParam';

begin

end.

---

Просто Джо   (2005-02-08 09:49:00) [23]

> Чего бы ещё отключить можно?  


Выкинь VersionInfo. Еще пару килобайт скинешь. ;)

"Для распространения в нете не очень то хорошо" (с)

---

Skier   (2005-02-08 09:48:00) [24]

>Ega23 ©   (08.02.05 09:46)  
c VCL внутри библиотеки работаешь ?

---

Страницы:   < 1 2 >

Наверх