Добрый день коллеги.
Помогите разобраться с пакетами уже достали.
Значит есть главная программа ехешка. С этой ехешки вызывается функция с пакета GL_Functions.bpl в обработчике oncreate, и при нажатие кнопки используется другой пакет MainForm.bpl который содержит форму. Сделал прогу "build with runtime package" и добавил эти 2 пакеты. При компляции пишет
[DCC Error] E2199 Packages 'GL_Functions' and 'MainForm' both contain unit 'Windows'
[DCC Error] E2199 Packages 'GL_Functions' and 'MainForm' both contain unit 'Types'
[DCC Error] E2199 Packages 'GL_Functions' and 'MainForm' both contain unit 'System'
[DCC Fatal Error] F2220 Could not compile package 'GL_Functions'
код пакета GL_Functions
unit unt_gl_functions;
interface
uses WinSock;
function BSB_GetIPAddress: string;
implementation
function BSB_GetIPAddress: string;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;
end.код пакета MainForm
unit unt_MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
Tfrm_Main = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_Main: Tfrm_Main;
implementation
{$R *.dfm}
initialization
RegisterClass(Tfrm_Main);
finalization
UnRegisterClass(Tfrm_Main);
end.что посоветуети?
----www.hramin.jino-net.ru