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

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

Как возвратить TStrings из dll? [D7, WinXP]

RamZeS ©   (2005-02-03 03:25:00) 

сабж...

---

Владислав   (2005-02-04 10:36:00) [1]

> i-s-v ©   (04.02.05 02:42) [4]

А огрести потенциальные проблемы?

---

Думкин   (2005-02-04 07:42:00) [2]

Я испоkьзую ShareMem. Возвращаю через var. Но пока не вижу проблем и в другом. Надо попробовать будет.

---

i-s-v   (2005-02-04 02:42:00) [3]

Наверноe лучше так. Экземпляр TStrings создавай внутри ДЛЛки

var
 s: TStrings;

procedure Init;
begin
 s := TStringList.Create;
end;

function GetGames(FileName: string): pointer;
var i: TIniFile;
begin
i:=TIniFile.Create('test.db');
i.ReadSections(s);
i.Free;
Return @s;
end;

procedure Remove;
begin
 s.Free;
end;

---

RamZeS   (2005-02-03 21:43:00) [4]

Вот:

function GetGames(FileName: string): TStrings;
var i: TIniFile;
begin
 i:=TIniFile.Create('test.db');
 i.ReadSections(result);
 i.Free;
end;

Что не так?

---

REA   (2005-02-03 10:03:00) [5]

Лучше PChar. Иначе придется ShareMem подключать.

---

Думкин   (2005-02-03 07:15:00) [6]

А в чем затруднения? Как пробовал?

---

Наверх