DLL в Delphi

← →
Сергей М. © (2007-06-28 12:20) [40]

Жаль. Пример обращения тебя как автовладельца "больного" авто, в котором ты ничерта не смыслишь (но в душе искренне желаешь познать), к специалистам автосервиса был бы весьма показателен.

← →
DimOk © (2007-06-28 12:28) [41]

> Жаль. Пример обращения тебя как автовладельца "больного"
> авто, в котором ты ничерта не смыслишь (но в душе искренне
> желаешь познать), к специалистам автосервиса был бы весьма
> показателен.

Немного о себе: я имею высшее образование, работаю в крупной и преуспевающей конторе уже 3 года, программировал и программирую на С++, VB, FP, 1С а Delphi изучаю всего 1 -ый месяц, все что у меня есть по Delphi так это иллюстрированный самоучитель в электронном виде и ресурсы интернета - сами понимаете, что на работе много не начитаешься (книг бумажных). Поэтому и лезу на форумы для поиска помощи среди знающих людей "МАСТЕРА DELPHI" всем большое спасибо, но видимо этот сайт не для таких как я...

← →
Сергей М. © (2007-06-28 12:34) [42]

> DimOk © (28.06.07 12:28) [41]

К чему вся эта шелуха ?

Тебе в [34] был задан конкретный вопрос, ответить на который ты не удосужился, предпочтя вместо этого пустить слезы-сопли по поводу якобы "обсирания".

Ну а раз не соизволил ответить, значит тебя не интересует источник проблемы.

← →
DimOk © (2007-06-28 12:38) [43]

> К чему вся эта шелуха ?
>
> Тебе в [34] был задан конкретный вопрос, ответить на который
> ты не удосужился, предпочтя вместо этого пустить слезы-сопли
> по поводу якобы "обсирания".
>
> Ну а раз не соизволил ответить, значит тебя не интересует
> источник проблемы.

Помоему там было и без это все ясно, что при вызове процедуры

← →
DimOk © (2007-06-28 12:42) [44]

> в хост-приложении:
>
> TEncrypt = procedure(Buf: PChar; Key: Word); stdcall;
> ..
> var
> Encrypt: TEncrypt;
> tmpstr: String;
> ..
> tmpstr := frmSettingsFilesAndDB.PasswordArc.Text;
> Encrypr(PChar(tmpstr), 135);
> frmSettingsFilesAndDB.PasswordArc.Text := tmpstr;

Причем сдесь не совсем ясно, что такое:
TEncrypt = procedure(Buf: PChar; Key: Word); stdcall;
Может я вообще не понимаю, но а где сама библиотека...... из которой вызывается эта функция....

← →
DimOk © (2007-06-28 12:43) [45]

> из которой вызывается эта функция....

Сорри, процедура

← →
Плохиш © (2007-06-28 12:46) [46]

> Причем сдесь не совсем ясно, что такое:
> TEncrypt = procedure(Buf: PChar; Key: Word); stdcall;

А прочитать про процедуальные типы в справке - это не царское дело?

> Может я вообще не понимаю, но а где сама библиотека.....
> . из которой вызывается эта функция....

В переменную Encrypt надо, перед вызовом, занести адрес требуемой процедуры.

PS. Жалко, что у тебя авто нет...

← →
Сергей М. © (2007-06-28 12:46) [47]

> Помоему

Это только по-твоему ясно !

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

← →
DimOk © (2007-06-28 12:49) [48]

Удалено модератором

← →
Сергей М. © (2007-06-28 12:50) [49]

> а где сама библиотека...... из которой вызывается эта

У тебя есть проект библиотеки ?
Есть.

Вот в нем и замени реализацию функции Encrypt() на мою реализацию одноименной процедуры.

Мне что, делать больше нечего, как только приводить текст целого проекта, вместо того чтобы привести только ключевые его моменты, требующие коррекции ?

Ты репу-то почеши)

← →
Сергей М. © (2007-06-28 12:52) [50]

> Я последовал вашему совету

Не вижу как ты ему последовал в библиотечном проекте, раз задаешь идиотский вопрос "где сама библиотека ?".

← →
Сергей М. © (2007-06-28 13:07) [51]

Оффтоп:

> программирую на ..1С

"Нет такой власти !" (c) "Начальник Чукотки"

Нет такого языка, следовательно, и программировать на нем ты никак не мог)

← →
Johnmen © (2007-06-28 13:10) [52]

Оффтоп2:

> программирую на С++, VB, FP, 1С

Ерунда. Вот если бы программировал на Газпром....

← →
Плохиш © (2007-06-28 13:29) [53]

> Сергей М. © (28.06.07 13:07) [51]
> Johnmen © (28.06.07 13:10) [52]

Взяли и обсмеяли малъчику пипиську :-D

← →
DimOk © (2007-06-28 14:06) [54]

Удалено модератором
Примечание: Оскорбления, 7 дней RO

← →
DimOk © (2007-06-28 14:08) [55]

Удалено модератором
Примечание: Грубый мат. 30 дней RO

Мальчик обиделся)

Удалено модератором

Тебе ответили
[27]+[29]
и
[31]

Чего не получается?

[57] все работало нормально - это как ?

и [55] - в маем доме нэ виражатса!

Удалено модератором

> но а где сама библиотека...... из которой вызывается эта
> функция....

Лапшу на уши не вешай, прекрасно знаешь, поскольку в [3] привел ее код.

> все работало нормально

Д-да .. И особенно нормально это - "смотрим .. видим совсем другую картину"

Ну так а что ж ты тогда сюда приперся, олух царя небесного, если "все работало нормально" ?)

DLL в Delphi Найти похожие ветки