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

[Maslan]

Хм..... Эм......
Даж не знаю как спросить..
Зачем тип TString ???


Кидай полный исходник.

[SnakeMan]

Да уже вспомнить не могу - голова опухла, я там куда то пытался передавать указатель на нее, потом видимо передумал, а сам тип не убрал.
Вот исходник..
Блин, видно с возрастом тупеть начинаю, раньше как то резвее все это до меня доходило..

[Slovinsky]

как думаешь, что проще, передать в DLL и обратно массив неизвестной длины из элементов неизвестной длины или просто указатель на участок памяти, в котором вся эта гадость лежит?

Сорри, что вмешиваюсь, но переменная типа динамический массив еще с утра также была указателем, а среда ругается вовсе не из-за этого...

[Maslan]

Slovinsky,
С утра - да, но с СЕГОДНЯШНЕГО утра, а тогда ещё не была =)
Теперь по делу:
1-слова "неизвестной" и "переменной" -всё-таки разные. Там грузился массив чаров.
2-"среда ругается", а зачем связывать это в одном предложении, если у меня это было в разных? Про ругань - относилось к другой части кода.

SnakeMan, у меня нет семёрки на работе, поэтому скомпилить не могу. Замени TString на string и @ на PChar() - должно работать.

[Slovinsky]

С утра - да, но с СЕГОДНЯШНЕГО утра, а тогда ещё не была =)

Очень хорошая статья, рекомендую. Многое из этого в хэлпе не написано:
http://rsdn.ru/article/Delphi/dynarrays.xml#EWLAC

И такой код отлично компилируется:

procedure LasCapBlock (FileName: ShortString;LasCaption:Array of integer; StQuan: Byte);
begin
// Do something
end;

procedure TForm1.FormCreate(Sender: TObject);
var
a: array of Integer;
begin
SetLength(a,10);
LasCapBlock('',a,0);
end;

Так что делать указатель на указатель смысла мало...

[Maslan]

Ок, допускаю возможность компиляции. А если учесть что это в DLLке? Плюс необходимость человеку поработать с указателями?

[Slovinsky]

Ну посмотрел я мельком проект автора. Похоже у него не работает из-за того, что он банально пропустил begin..end. У автора так:

if Label5.Caption = 'DOS' then // в случае Dos кодировки переводить символы в читаемые
DefCh:=@St [ChPos-1];
St [ChPos-1]:=DosToWin (DefCh)^;

А имелось в виде, наверное, так:

if Label5.Caption = 'DOS' then begin// в случае Dos кодировки переводить символы в читаемые
DefCh:=@St [ChPos-1];
St [ChPos-1]:=DosToWin (DefCh)^;
end;

Да и вообще код очень страшный, явное непонимание работы с указателями, со строками, рекомендую почитать хотя бы это:
http://www.delphikingdom.com/asp/vie...catalogid=1206

[SnakeMan]

Спасиб за рекомендации!
А код действительно страшный, так ка сам пытаюсь разобраться. К сожалению методом научного тыка..

[SnakeMan]

Все таки подскажите ссылки, где можно найти описания функций OemToChar и им подобных..

[SnakeMan]

Неужели нигде нет никаких описаний????