Обмен данными с dll
Дело таково (вызов описывать лень пока - если надо то покажу):
delphi Код:
function txt(a:widestring):integer; export;stdcall;
begin
if (a[1]='S') then begin
result:=1;
end else begin
result:=0;
end;
- вот так возвращается 1\0 в зависимости от первого символа.....НО! вот так результата нет
delphi Код:
function txt(a:widestring):widestring; export;stdcall;
begin
if (a[1]='S') then begin
result:=a+a;
end else begin
result:=a;
end;
вызов ее примерно так:
delphi Код:
lib:=loadLibrary('f:\probnik10.dll');
S:=CallFunction(lib,'txt',1,[(a[j])]);
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 01.09.2010 в 23:09.
|