Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка при загрузке 
V
    Опции темы
Testing001
  Дата 25.4.2007, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 27.3.2007

Репутация: нет
Всего: нет
DLL:

Код

library replace;


uses
  ShareMem, SysUtils, Classes;

{$R *.res}

function StringReplaceAll (text,byt,mot : string ) :string;
...
...
end;

function Vasya2Petya (text : string) : string;
begin
text := stringreplaceall (text,'Вася','Петя');
result := text;
end;

exports
Vasya2Petya;

begin
end.


В проге вызваю след. образом:

Код

implementation

{$R *.dfm}


function Vasya2Petya (text : string) : string; external 'replace.dll';

...
...

procedure TForm1.PreviewBtnClick(Sender: TObject);
const BR = '<br>';
var
plats : integer;
begin
for plats:=0 to Memo.Lines.Count-1 do
     ConvertMemo.Lines.Add(Vasya2Petya(Memo.Lines.Strings[plats]+ BR));
ConvertMemo.Lines.SaveToFile('Program/Temp.html');
ConvertMemo.Clear;
Form4.Show;
end;


Под дельфи отказывается работать, а без дельфи работает, но выскакивает ошибка "Invalid pointer operation."

Что не так?
PM   Вверх
bartram
Дата 25.4.2007, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29
Первое что заметил
Код

ConvertMemo.Lines.SaveToFile('Program/Temp.html');

надо так
Код

ConvertMemo.Lines.SaveToFile('Program\Temp.html');

Это ты не в браузере адрес набираешь smile


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 
PM MAIL ICQ   Вверх
aktuba
Дата 26.4.2007, 03:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 2
Всего: 38
Цитата

function Vasya2Petya (text : string) : string;
begin
text := stringreplaceall (text,'Вася','Петя');
result := text;
end;


По-моему, Result будет ссылаться никуда, т.к. text убьется после выполнения....


--------------------
user posted image
PM MAIL WWW Skype   Вверх
MetalFan
Дата 26.4.2007, 08:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128
aktuba, не должен убиваться.

разве что в приложении не понятно, подключен ли ShareMem...


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
aktuba
Дата 26.4.2007, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 2
Всего: 38
Цитата

aktuba, не должен убиваться.


Теоретически не должен... "Меня терзают смутные сомнения"...  smile 


--------------------
user posted image
PM MAIL WWW Skype   Вверх
MetalFan
Дата 26.4.2007, 08:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128
поидее при таком присвоении в Result скопируется полностью значение Text... хотя надо проверить, чо там компилятор накомпилировал...
 smile aktuba, ага) вчера ловили AV... в конце рабочего дня) весь моск сломали. и как ты думаешь что??? неинициализированная локальная переменная четырьмя вызовами выше... %)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
aktuba
Дата 26.4.2007, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 2
Всего: 38
Цитата

aktuba, ага) вчера ловили AV... в конце рабочего дня) весь моск сломали. и как ты думаешь что??? неинициализированная локальная переменная четырьмя вызовами выше... %)


Почему-то даже не удивляюсь =)))) У самого такое пару раз было...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Testing001
  Дата 28.4.2007, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 27.3.2007

Репутация: нет
Всего: нет
Все разобрался спасибо! smile
PM   Вверх
aktuba
Дата 1.5.2007, 06:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 2
Всего: 38
Цитата

Все разобрался спасибо! smile 


Ну так расскажи другим =)


--------------------
user posted image
PM MAIL WWW Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0844 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.