DLLки из делфи не понемают код Basic'а...

[TuXAPuK]

Здравствуйте господа программисты.... Обращаюсь я к вам вот с такой темой... Я уже года 3 как пишу на делфях и уже даавным давно позабыл ВизуалВайсик (Даже знаки комментов забыл '' ). А вот мой хороший знакомый только, только начинает изучать языки програмирования.. И какраз начал с VB...
Вообщем чтобы ему немножко помочь я решил для него переделать кое какие свои DLLки написаные на делфях... Но к сожелению ненак не могу заставить VB посылать Pointer constant в виде параметра.. И библиотека написаная на делфи нечего не понемает... А в некоторых случаях VB вообще насмерь зависает, а потом где-то на уровне ядра вылетает в ошибку... вообщем сбрасываю два проэкта один на VB6.0 (дозвонщик), а другой на Delphi7 (Библиотека)... Кто может помогите пожалусто...

Код: Выделить всё

Private Declare Function asix Lib "c:\program files\borland\delphi7\projects\project1.dll" (ByRef name As String) As String

Private Sub Command1_Click()
Me.Caption = asix("Hello")
End Sub


Код: Выделить всё

library Project1;
{$R *.res}

Uses
  SysUtils, Classes, Windows;


  function asix(name: PChar): PChar; stdcall;
  begin
    MessageBox(0, Name, '/dev/null', 64);
    StrPCopy(Result, 'HelloMan');
  end;

exports
  asix name 'asix';


Begin {..} End.


[Kovu]

Код: Выделить всё

Private Declare Function asix Lib "c:\program files\borland\delphi7\projects\project1.dll" (ByRef name As String) As String

Попробуй передавать строку ByVal

[TuXAPuK]

Пробывал... Вайсик не поняв ответа от Var параметра зависает насмерть на уровне ядра Кстати DLL`ка при передаче ByVar может спокойно всё прочитать...
VB посылает запрос [ asix("Hello") ] --> Делфи читает [ function asix(var name: PChar): PChar; stdcall; ] где name = "Hello", а не раззн билибирда --> далее StrPCopy(name, 'Ok'); StrPCopy(Result, 'HelloMan') --> Вайсик не подаёт не каких признаков жизни (Not Responding) --> Вайси совсем насмерть вылетает на уровне ядра...

[Kovu]

Ну есть вариант, если так не работает, правда он геморрный
Private Declare Function asix Lib "c:\program files\borland\delphi7\projects\project1.dll" (ByVal name As long) As long
Dim res as long, strret as string
res= asix(strptr("Hi"))

copymemory strret,res,byval lstrlen(res)
А в функции на дельфи получаешь строку по указателю (через CopyMemory,lstrcopy, ну или чем нить внутренним дельфовским) и в результат выдаешь указатель на строку

[GSerg]

Я совсем офигеваю...

TuXAPuK, а чё, функция StrPCopy в дельфи сама выделяет память под копию строки? Или ты её в этот самый dev/null копируешь?
Это первое. И второе - позырь, как принимают и возвращают строки все API, и сделай так же.

[TuXAPuK]

to Kovu
Нее... попробывал и так тоже самое... один раз из 5 не вылетел но вернул полную чепуху.. Покрайней мере размер нормальным оказался в 5 знаков....

to GSerg
Иррархия для StrPCopy...

Код: Выделить всё

function StrPCopy(Dest: PChar; const Source: string): PChar;
begin
  Result := StrLCopy(Dest, PChar(Source), Length(Source));
end;

Код: Выделить всё

function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; assembler;
asm
        PUSH    EDI
        PUSH    ESI
        PUSH    EBX
        MOV     ESI,EAX
        MOV     EDI,EDX
        MOV     EBX,ECX
        XOR     AL,AL
        TEST    ECX,ECX
        JZ      @@1
        REPNE   SCASB
        JNE     @@1
        INC     ECX
@@1:    SUB     EBX,ECX
        MOV     EDI,ESI
        MOV     ESI,EDX
        MOV     EDX,EDI
        MOV     ECX,EBX
        SHR     ECX,2
        REP     MOVSD
        MOV     ECX,EBX
        AND     ECX,3
        REP     MOVSB
        STOSB
        MOV     EAX,EDX
        POP     EBX
        POP     ESI
        POP     EDI
end;

Ввывод из проделаной работы
Странно... Вайсик даже для Integer делает здвиг на пол структуры... Может эту у них какая небуть левая политика такая... Чтобы библиотеки написаные под делфёй не шли на ихнем языке...

PS: Хмм... Воот сейчас попробывал на Borland C++ Builder библиотечке зделать... Та же самая херня... ... скажите.. а в вайсике нету какой небуть структуры типо Pointer или Pointer->PChar, Pointer->PAnsiChar, Pointer->WideString???

[GSerg]

Фиговый вывод.

Правильный вывод: ты копируешь строку в никуда.

[Юстас]

Код: Выделить всё

  function asix(name: PChar): PChar; stdcall;
  begin
    MessageBox(0, Name, '/dev/null', 64);
    Result = SysAllocStringLen ('HelloMan', lstrlen ('HelloMan');
  end;
---------------------------------------------------------
declare function asix lib...... (ByVal str As String) As String

me.caption = asix ('Hello')

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

[TuXAPuK]

Нет... Всёравно виснет после обработки билиотеки...

Ладно... А как вайсик например буффер читает?? например как на вайсике прчитать...
function GetWindowsDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;

Есть ведь что-то подобное

Код: Выделить всё

  Function WindirToString: String;
  Var
    Buffer: Array[0..MAXPATH] Of Char;
  Begin
    GetWindowsDirectory(Buffer, SizeOf(Buffer));
    Result := StrPas(Buffer);
  End;

[Юстас]

Код: Выделить всё

    Dim s As String * 256
    GetWindowsDirectory ByVal s, 256
    MsgBox s

P.S.
SysAllocStringLen возвращает указатель на bstr - практически родной для vb тип данных. Из c++ dll такой метод работает на ура. Если у тебя что-то виснет, не в SysAllocStringLen дело. Ищи другие ошибки.

[Kovu]

Код: Выделить всё

Dim Path As String
Path = Space$(255)
Path = Left$(Path, GetWindowsDirectory(Path, Len(Path)))
MsgBox Path