Работа с DLL - программа, которая будет общаться с файлами данных, представленных в текстовом виде

[SnakeMan]

Доброго времени суток!
Пытаюсь написать программку в Delphi7, которая будет активно общаться с файлами данных, представленных в текстовой форме.
Написал процедуру в DLL для прочтения первого блока файла. Если заполняю его строками массив внутри самой DLL, то все вроде как нормально, а вот при попытке передачи в основной модуль на 4 строке файла возникает ошибка : Access violation at address 400068B8 in module 'rtl70.bpl'. Read of address 000051F9.
Как такое возможно забороть? Передается массив array of string, модуль ShareMem включил и в программу и в код DLL.

Заранее благодарен!

[Maslan]

Предъяви код, пожалуйста. (хотя бы самой передачи массива)

[SnakeMan]

Пожалуйста!
В архиве полностью начало проекта. В папке Source находится файл, из которого собственно будут читаться данные.

[Maslan]

В MainWindowOperate; :

Type 
TArray=Array of string;
PArray=^Tarray;

procedure LasCapBlock (FileName: ShortString; LasCaption:PArray; StQuan: Byte); external 'dll/TxOper.dll';

procedure TOpenSourceDialog.FileListView1Click(Sender: TObject);
....
  LasCapBlock (FileName, @LasCapt, StQuan);
...

В library TxOper; :

Type 
TArray=Array of string;
PArray=^Tarray;

Procedure LasCapBlock (FileName: ShortString;LasCaption:PArray; StQuan: Byte);
.....
Inc (StQuan);
  SetLength ( LasCaption^, StQuan); //<<< Тут же была идея, что ж не заметил-то? Даже кусок кода закомментирован :) 
 ReadLn (F, LasCaption^ [StQuan-1]);
...
//И дальше все LasCaption[] заменить на LasCaption^[]

[SnakeMan]

Спасиб!
Попытаю..

[SnakeMan]

Если не трудно, поясни еще что обозначают символы @ и ^ в именах..
И никак не могу понять, зачем нужно объявлять типы

Type
TArray=Array of string;
PArray=^Tarray;
Или стандартное объявление совсем не работает?

[SnakeMan]

C козявками ^ и @ разобрался.. Таки Help полезная штука )).
А Вот с Type че то не могу понять как работать..
Если в нем уже че то объявлено, в моем случае Class TMainForm, то как объявлять остальные, в том числе и TArray?

[Maslan]

И "козявки" и типы нужны для успешной передачи параметров, т.к. если объявить процедуру как Procedure LasCapBlock (FileName: ShortString;LasCaption:Array of integer; StQuan: Byte); дельфя будет ругаться при передаче процедуре переменной тоже типа Array of integer. А тип "указатель на массив" - как думаешь, что проще, передать в DLL и обратно массив неизвестной длины из элементов неизвестной длины или просто указатель на участок памяти, в котором вся эта гадость лежит? Вот то-то и оно

Если в нем уже че то объявлено, в моем случае Class TMainForm, то как объявлять остальные, в том числе и TArray?

Очень просто:
Вариант 1: вставляешь описание новых типов между ключевым словом type и следующей строкой - началом объявления TMainForm;
Вариант 2: ишешь end; после Class TMainForm
и после этого end; вставляешь.

[SnakeMan]

Вроде МаНяНа ))

[SnakeMan]

Мдя.. Че то у меня работа на каждом шагу спотыкается. Теперь начал править функции работы с символами. Обозвал function DosToWin (Var Ch:PChar):PChar;
А вот как работать с этими переменными понять не могу. Если взлянете исходник, который ниже, то станет понятно, что из основного модуля в эту функцию должен передаваться один символ из string`а, а назад возвращаться в сдвинутом виде. Вроде все просто, но вот я где то не догоняю как это сделать.
Помогите пожалуйста!