VPF::Перевод! - Форум программистов

Гость_Frikazoid

Дата 19.1.2004, 19:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Не помоло.... И к тому же, чаще всего вылазят 3 левых символа имхо указатель! Но как от туда вытащить строку....

<Spawn>

Дата 19.1.2004, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Frikazoid пришлика ДЛЛ, если она не является чем то секретным)) Попробую похимичить )

--------------------

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

Frikazoid

Дата 19.1.2004, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

http://forum.vingrad.ru/index.php?act=ST&f=2&t=15002

там я говорил про эту тему!

--------------------

RTFM - "Всё для программиста" Это уменя есть сайт! Урыл в профайле!
А там.... Ну всё что надо по PHP Delphi CSS HTML JavaScript Perl API ASP MySQL XML С++ VBasic и многое другое.

Frikazoid

Дата 20.1.2004, 01:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

http://www.scancode.ru/catalog/item_view/22/41/
Вот

--------------------

Frikazoid

Дата 21.1.2004, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Люди! только не бросайте меня

--------------------

Frikazoid

Дата 22.1.2004, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Ну что, никто не спасёт меня?

--------------------

<Spawn>

Дата 22.1.2004, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

А ты правильно их импортируешь?? А то в том твоем примере импорт функции не верен, т.к. Си "слегка" дополняет название функции )) Т.е. TDump показывает такие их названия:

Код

Section:             Exports
  Flags:             00000000
  Time Stamp:        3FBDE28F : Fri Nov 21 15:01:51 2003
  Major Version:     0000
  Minor Version:     0000

Exports from Cipher.dll
  40 exported name(s), 40 export addresse(s).  Ordinal base is 1.
  Sorted by Name:
    RVA      Ord. Hint Name
    -------- ---- ---- ----
    00001B80    1 0000 ??0CCipher@@QAE@XZ
    00001BA0    2 0001 ??1CCipher@@QAE@XZ
    00001000    3 0002 ??4CCipher@@QAEAAV0@ABV0@@Z
    00001E20    4 0003 ?CheckComm@CCipher@@QAEHXZ
    000030D0    5 0004 ?ClearDatabase@CCipher@@QAEHH@Z
    00002F60    6 0005 ?ClearDoc@CCipher@@QAEHH@Z
    00001E40    7 0006 ?CloseComm@CCipher@@QAEXXZ
    00001730    8 0007 ?ExtClearDatabase@@YGHHHH@Z
    00001680    9 0008 ?ExtClearDoc@@YGHHHH@Z
    00001AE0   10 0009 ?ExtFinish@@YGHHH@Z
    00001420   11 000A ?ExtGetCurrentState@@YGHPADHH@Z
    00001520   12 000B ?ExtGetDataCount@@YGJHHH@Z
    000010E0   13 000C ?ExtGetFreeMemory@@YGJHH@Z
    000015D0   14 000D ?ExtGetRecordsCount@@YGJHHH@Z
    00001180   15 000E ?ExtGetSerialNumber@@YGHPADHH@Z
    00001280   16 000F ?ExtGetTime@@YGHPADHH@Z
    00001030   17 0010 ?ExtPing@@YGHHH@Z
    00001A00   18 0011 ?ExtPutRecord@@YGHHPBDHH@Z
    000017E0   19 0012 ?ExtReadData@@YGHHPADHH@Z
    000018F0   20 0013 ?ExtReadRecord@@YGHHPADHH@Z
    00001380   21 0014 ?ExtUpdateTime@@YGHHH@Z
    00003FC0   22 0015 ?Finish@CCipher@@QAEHXZ
    00002AD0   23 0016 ?GetCurrentState@CCipher@@QAEHPAD@Z
    00002C20   24 0017 ?GetDataCount@CCipher@@QAEJH@Z
    00002110   25 0018 ?GetErrorDescription@CCipher@@QAEHHPAD@Z
    00002520   26 0019 ?GetFreeMemory@CCipher@@QAEJXZ
    00002100   27 001A ?GetLastError@CCipher@@QAEHXZ
    00002DC0   28 001B ?GetRecordsCount@CCipher@@QAEJH@Z
    00002650   29 001C ?GetSerialNumber@CCipher@@QAEHPAD@Z
    000027A0   30 001D ?GetTime@CCipher@@QAEHPAD@Z
    00001BE0   31 001E ?InitComm@CCipher@@IAEHXZ
    00001BB0   32 001F ?OpenComm@CCipher@@QAEHHH@Z
    00001E70   33 0020 ?OpenIrDA@CCipher@@IAEHXZ
    00002480   34 0021 ?Ping@CCipher@@QAEHXZ
    00003B20   35 0022 ?PutRecord@CCipher@@QAEHHPBD@Z
    00003240   36 0023 ?ReadData@CCipher@@QAEHHPAD@Z
    000036B0   37 0024 ?ReadRecord@CCipher@@QAEHHPAD@Z
    000040D0   38 0025 ?SendCommand@CCipher@@IAEHPBDPAD@Z
    00001FF0   39 0026 ?TestIrDA@CCipher@@IAEHK@Z
    00002920   40 0027 ?UpdateTime@CCipher@@QAEHXZ

Т.е. для того, чтобы, к примеру, импортировать ExtGetSerialNumber нужна написать следующее:

Код

function ExtGetSerialNumber(szData : PAnsiChar; nCommPort : integer;  bIsIrDA : Boolean = False): Boolean; stdcall; external 'Cipher.dll' name '?ExtGetSerialNumber@@YGHPADHH@Z';

П.С. Кстати, у меня ошибки при вызове функции не было.

--------------------

Frikazoid

Дата 22.1.2004, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Ситуация в корне изменилась! Функции не выдают ошибок, но я не могу получить данные из szData!
Да, наверное глупо обращатся к людям у которых нет реального девайса на руках!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »