DLL фалйы в Delphi

[Lucky beggar]

Добрый день(вечер, утро). Уже который день не могу сделать DLL файл в Delphi, а точнее, в DLL файле написана процедура "выдергивания" орпеделенного текста

Содержимое DLL файла:

procedure format (s:widestring); stdcall;export;
var    beg,en:integer;
begin
  beg:=pos('<div class="medium">',s);
  en:=pos('<div class="space">',s);
  delete(s,1,beg);
  delete(s,en,length(s));
end;
exports format;
begin
end.

Основная программа:

var
  Form1: TForm1;
  f:text;
implementation
{$R *.dfm}
procedure format(s:widestring);stdcall;
  external 'Project2.dll'
procedure TForm1.Image2Click(Sender: TObject);
var s:string;
begin
assignfile(f,'D:\M.D\My documents\гороскоп\horo.txt');
rewrite(f);
s:= IdHTTP1.Get('http://astroscope.ru/horoskop/ejednevniy_goroskop/aries.html');
writeln(f,s);
format(widestring(s));
closefile(f);
end;

Процедура в DLL файле не рабоает. В чем моя ошибка? и можете объяснить, как как программа и DLL файл передают друг другу параметры(в данном случае переменную s)?

[Yurk@]

Процедура в DLL файле не рабоает

по чем это видно?

[evg_m]

эта процедура не будет работать так как ожидалось и без DLL.
читать про ТИПЫ(виды) передачи параметров. (можно поиском по сайту) но лучше в УЧЕБНИКЕ по Pascal|Delphi.

[FaTaL]

У тебя procedure format (s:widestring); stdcall;export; ПРОЦЕДУРА!
Что ты от неё хочешь? Она же ничего не возвращает в отличии от функции.
Тебе нужно писать функцию, которая будет тебе возвращать твой обрезанный текст.

[Dik0n]

передавай так:

procedure format (var s:widestring); stdcall;export;

[Lucky beggar]

по чем это видно?

Исходный код страницы содержит примерно 1500 символов, после выполнения программы ни один символ не был удален.

передавай так:
Код:

procedure format (var s:widestring); stdcall;export;

При добавлении слова var программа перестает работать и открывает CPU окно.

эта процедура не будет работать так как ожидалось и без DLL.
читать про ТИПЫ(виды) передачи параметров

Если Вы имели ввиду передачи данных в виде ссылок (создание ссылки внутри DLL), то я пробовал, но программа выдавала ошибку

У тебя procedure format (s:widestring); stdcall;export; ПРОЦЕДУРА!
Что ты от неё хочешь? Она же ничего не возвращает в отличии от функции.
Тебе нужно писать функцию, которая будет тебе возвращать твой обрезанный текст.

Сейчас попбробуем написать...

[Lucky beggar]

Попробовал использовать функцию. Выдает ошибку "invalid pointer operation".
Вот код DLL файла:

function format (s:widestring):string; stdcall;
var    beg,en:integer;
begin
  beg:=pos('<div class="medium">',s);
  en:=pos('<div class="space">',s);
  delete(s,1,beg);
  delete(s,en,length(s));
  format:=s;
end;
exports format;
begin
end.

Код процедуры:

function format(s:widestring):string;stdcall;
  external 'Project2.dll'


procedure TForm1.Image2Click(Sender: TObject);
var s:string;
begin
assignfile(f,'D:\M.D\My documents\гороскоп\horo.txt');
rewrite(f);
s:= IdHTTP1.Get('http://astroscope.ru/horoskop/ejednevniy_goroskop/aries.html');
writeln(f,s);
format(widestring(s));
closefile(f);
end;

[eoln]

Ну и по самому коду.

en:=pos('<div class="space">',s);
delete(s,1,beg);

Строчки надо местами поменять, иначе позиция en будет смещена.
Если есть желание, то можно простым copy обойтись без удаления.
Ну а если теги не нужны, то к позиции надо прибавить 19 (кол-во лишних символов в тегах)

[Lucky beggar]

Ну и по самому коду.
Код:

en:=pos('<div class="space">',s);
delete(s,1,beg);

Строчки надо местами поменять, иначе позиция en будет смещена.

Ух ты. Не заметил даже. Спасибо

Ну а если теги не нужны, то к позиции надо прибавить 19 (кол-во лишних символов в тегах)

Учту.

[Пепел Феникса]

возвращайте тоже widestring.