| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не сделать элементарную вещь ...
StasStas © (2005-11-04 00:03:00)Уважаемы профессионалы Delphi.
Нужна помощь !
Внизу пример исходного текста программы.
Как прочесть массив данных указанной ниже экспортной функцией.
Как не пытаюсь пишет неверные типы и тому подобное ....
Понимаю для вас это азы , для меня тупик
------------------------------------------------------------------------------------------------------------------------ --------------------------------
{структура}
PConGroup = ^TConGroup;
TConGroup = record
group : array [0..15] of char; // group name
enable : integer; // enable group
timeout : integer; // trade confirmation timeout (seconds)
end;
PAConGroup = ^TAConGroup;
TAConGroup = array [0..0] of TConGroup;
{функция}
{total - количество прочтения записей , если 0 то все}
function CfgRequestGroup(total:pinteger):PAConGroup; stdcall;
procedure TForm1.Button1Click(Sender: TObject);
var
conf : TConGroup;
kol:pinteger;
begin
ZeroMemory(@conf,SizeOf(conf));
{необходимо прочитать массив данных из функции CfgRequestGroup , отдельно каждый элемент что бы дернуть можно было}
{делал так
conf:=CfgRequestGroup(@kol);
компилятор выругался и послал подальше , как сделать ?????
}
end;
------------------------------------------------------------------------------------------------------------------------ --------------------------------
злобная танька (2005-11-04 00:29:00) [1]неее... он крышечку пропустил после функции..
palva (2005-11-04 00:20:00) [2]> компилятор выругался и послал подальше
Это он не выругался а попытался по-английски тебе помочь.
Может быть так надо?
var
kol:integer;
pkol:pinteger;
...
begin
...
pkol := @kol;
conf:=CfgRequestGroup(pkol);
| |
