03.09.2010, 01:21
|
#12
|
Местный
Регистрация: 10.08.2010
Сообщений: 634
Сказал Спасибо: 22
Имеет 95 спасибок в 70 сообщенях
|
Цитата:
Сообщение от Breadfan
delphi Код:
function txt(a:widestring):widestring; export;stdcall;
begin
if (a[1]='S') then begin
result:=a+a;
end else begin
result:=a;
end;
procedure txtfree(a:widestring); export;stdcall;
begin
setlength(a,0);
end;
вызов:
delphi Код:
lib:=loadLibrary('f:\probnik10.dll');
v:variant;
s:widestring;
v:=CallFunction(lib,'txt',1,[(a[j])]);
s=v;
CallFunction(lib,'txtfree',1,v); // или так CallFunction(lib,'txtfree',1,[v]);
|
попробуй както так.. у меня фс старый какойто вайдстроки не поддерживает)))) в любом случае без изврата тут не получитса
проверить неначем
Последний раз редактировалось mira, 03.09.2010 в 01:31.
|
|
|