Здрасти!
Могёте вот это перевести в дельфёвый вид культурно на? Спасибо!
int __declspec(dllexport) __stdcall ExtPing(int nCommPort, BOOL bIsIrDA = FALSE);
long __declspec(dllexport) __stdcall ExtGetFreeMemory(int nCommPort, BOOL bIsIrDA = FALSE);
BOOL __declspec(dllexport) __stdcall ExtGetSerialNumber(LPSTR szData, int nCommPort, BOOL bIsIrDA = FALSE);
BOOL __declspec(dllexport) __stdcall ExtGetTime(LPSTR szData, int nCommPort, BOOL bIsIrDA = FALSE);
BOOL __declspec(dllexport) __stdcall ExtUpdateTime(int nCommPort, BOOL bIsIrDA = FALSE);

int __declspec(dllexport) __stdcall ExtGetCurrentState(LPSTR szData, int nCommPort, BOOL bIsIrDA = FALSE);
long __declspec(dllexport) __stdcall ExtGetDataCount(int nDoc, int nCommPort, BOOL bIsIrDA = FALSE);
long __declspec(dllexport) __stdcall ExtGetRecordsCount(int nBase, int nCommPort, BOOL bIsIrDA = FALSE);
BOOL __declspec(dllexport) __stdcall ExtClearDoc(int nDoc, int nCommPort, BOOL bIsIrDA = FALSE);
BOOL __declspec(dllexport) __stdcall ExtClearDatabase(int nBase, int nCommPort, BOOL bIsIrDA = FALSE);
int __declspec(dllexport) __stdcall ExtReadData(int nDoc, LPSTR szData, int nCommPort, BOOL bIsIrDA = FALSE);
int __declspec(dllexport) __stdcall ExtReadRecord(int nBase, LPSTR szData, int nCommPort, BOOL bIsIrDA = FALSE);
BOOL __declspec(dllexport) __stdcall ExtPutRecord(int nBase, LPCSTR szData, int nCommPort, BOOL bIsIrDA = FALSE);
BOOL __declspec(dllexport) __stdcall ExtFinish(int nCommPort, BOOL bIsIrDA = FALSE);

Санькс...

Вот некоторые. На остальные времени нету:

Код

export  function ExtPing(nCommPort : integer; bIsIrDA : Boolean = False): integer; stdcall;  function ExtGetFreeMemory(nCommPort : integer; bIsIrDA : Boolean = False): longint; stdcall;  function ExtGetSerialNumber(szData : PAnsiChar; nCommPort : integer;  bIsIrDA : Boolean = False): Boolean; stdcall;  function ExtGetTime(szData : PAnsiChar; nCommPort : integer;  bIsIrDA : Boolean = False): Boolean; stdcall;  function ExtUpdateTime(nCommPort : integer;  bIsIrDA : Boolean = False): Boolean; stdcall;

А как вот из этой ExtGetSerialNumber вункции получить значение szData?
просто меня выкидывает с ерррором когда я пользовал эту функцию так
function ExtGetSerialNumber(szData : PChar; nCommPort : integer; bIsIrDA : Boolean = False): Boolean; stdcall;
или
function ExtGetSerialNumber(szData :LPSTR; nCommPort : integer; bIsIrDA : Boolean = False): Boolean; stdcall;

Люди! Все равно выкидывает с ошибкой! В szData должно возращаться значение - строка! Как это правильно организовать! Ерор состоит в том, что он не может записать значение по такому-то адрессу!
Попожите плз!

Дак откуда ты эти функции берешь то? Это ведь экспортируемые ДЛЛ-кой функции?

Frikazoid поищи ответ на своем сайте ;-D

По ходу дела тут надо выделять память под строку:

Код

var  str1 : PAnsiChar; begin  GetMem (str1, 1024);  ExtGetSerialNumber (str1, ....);  ...  FreeMem (str1, 1024); end;

Ну да! Из длл беру! длл написана на VC! ненавижу этот девайс! извиняюсь за выражение, но я с ним е...сь вот уже месяц или 2!
С функциями ExtPing, ExtGetFreeMemory не возникает никаких проблем! вызываются нормально, а вот те функции где есть szData : PAnsiChar; программа вываливается с интернал еррором! что за фигня?

Правильно говорит p0s0l. Попробуй выделить память, послче чего только передать указатель.

Цитата

Правильно говорит p0s0l. Попробуй выделить память, послче чего только передать указатель.

Оказывается это глючный длл!
Ладно! разберусь!

Пипалы!
Никак не получается! ДЛЛ возращает указатель а вот как дальше быть не знаю!
Но самый прикол в том, что если в мемо копировать содержимое таким образом

Код

for i:=1 to 100 do memo1.text:=memo1.text+p[i];

то всё показывает, а если так

Код

var s:string; begin s:=p; memo1.text:=s; end;

то не катит! что я делаю не так?

ЗЫ я везде выделяю память как надо!
Поможите! Я уже отчаялся мля! Впервые вижу такой непослушный девайс!

Что есть p? Указатель на какой тип данных?

(p) я пробовал объявлять поразному, смысл один PChar, PAnsiChar

Цитата

CODE  for i:=1 to 100 do memo1.text:=memo1.text+p[i]; то всё показывает

И что, все 100 символов - это все какой-то сер. номер ?
А там до самого текста никаких левых символов не вылазит ?
Если не вылазят, то может там нуля нигде нет в конце строки ?
Попробуй так:

Цитата

PByte(cadinal(p)+100)^ := 0; s:=p; memo1.text:=s;

А если вылазят левые символы, то нужно смотреть, что это за символы...

Нет! там не 100 символов! просто размер строки не фиксирован! А ентот размер не как не могу узнать!
И 2-е. Почему не работает один из вышеперечисленных методов, а другой работает?
И вот этот метод:

Код

for i:=1 to 100 do memo1.lines.add(p[i]);

тоже не работает! ничего не понимаю!