Помогите перевести Dll c Delphi

[SHURUP]

Надеюсь на помощь полиглотов
Есть файл-исходник плагина для чата. Плагин выполнен в виде Dll (на делфи) А я хочу писать плагины на другом языке програмирования (сами знаете на каком ) Думаю, что ничего сложного там нет. Но я в этом деле - слабенький (Прикладую вместе с исходником и описание выдернутое из справки по данному вопросу)
-------------------
Если кто-то может помочь - буду ОООчень благодарен!
Спасибо большое заранее!
Очень надеюсь на вашу помощь!
Будете у нас в Ирпене - выставлю пиво!

[SHURUP]

Ой! А как добавить? Тут вроди бі кнопочка "добавить приложение" была!

[tyomitch]

Ой! А как добавить? Тут вроди бі кнопочка "добавить приложение" была!

Съели злые хакеры, вместе со всеми приложениями, что уже были закачаны (

[SHURUP]

Ладно, по причинческим технинам… :

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

library Demo;

Uses Windows, SysUtils;

Procedure GetTitle(Buffer: PChar); stdcall;
Begin
  // Return plugin title
  StrPCopy(Buffer, 'Demonstration');
End;

Procedure GetDescription(Buffer: PChar); stdcall;
Begin
  // Return plugin description
  StrPCopy(Buffer, 'This is demonstration plugin.'+#$D#$A+'It sent ''Passed'' on ''Ping'' message.');
End;

Procedure Configure(HWND: THandle); stdcall;
Begin
  MessageBox(
     HWND,
     'This is demonstration plugin.'+#$D#$A+
     'It doesn''t required any settings.'+#$D#$A+
     'See ''FChat\Plugins\Demo\Demo.dpr'' to learn how to develop plugins.',
     'Configure',
     MB_OK or MB_ICONINFORMATION);
End;

Procedure OnMessage(
    sChatRoomName: PChar;        // Chatroom name
    sMessage: PChar;             // Message text
    sNickName: PChar;            // Chatter nickname
    sAddress: PChar); stdcall;    // Chatter address
Begin
// On public message
End;

Procedure OnMyMessage(
    sChatRoomName: PChar;
    sMessage: PChar); stdcall;
Begin
// On my public message
End;

Procedure OnPersonalMessage(
    sChatRoomName: PChar;        // Chatroom name
    sMessage: PChar;             // Message text
    sNickName: PChar;            // Chatter nickname
    sAddress: PChar;             // Chatter address
    sReply: PChar); stdcall;     // Text for reply (default - empty - no reply)
Begin
  // On personal message

  If (LowerCase(sMessage)='ping') then
    StrPCopy(sReply, 'Passed');
End;

Procedure OnMyPersonalMessage(
    sChatRoomName: PChar;        // Chatroom name
    sMessage: PChar;             // Message text
    sNickName: PChar;            // Chatter nickname
    sAddress: PChar); stdcall;   // Chatter address
Begin
// On my personal message
End;

Procedure OnConnected(
    sChatRoomName: PChar;        // Chatroom name
    sNickName: PChar;            // Chatter nickname
    sAddress: PChar); stdcall;   // Chatter address
Begin
// Chatter connected
End;

Procedure OnDisconnected(
    sChatRoomName: PChar;        // Chatroom name
    sNickName: PChar;            // Chatter nickname
    sAddress: PChar); stdcall;   // Chatter address
Begin
// Chatter disconnected
End;

exports
  GetTitle,
  GetDescription,
  Configure,
  OnMessage,
  OnMyMessage,
  OnPersonalMessage,
  OnMyPersonalMessage,
  OnConnected,
  OnDisconnected;

begin
// Initialization part
end.


Вот он тот злобный проэкт!

[ism]

Съели злые хакеры, вместе со всеми приложениями, что уже были закачаны

Это уже не смешно, это у всех так или уменя одного?

А насчет кода вроде бы так!?

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

Public Const MB_OK = &H0&
Public Const MB_ICONASTERISK = &H40&
Public Const MB_ICONINFORMATION = MB_ICONASTERISK
Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Sub GetTitle(ByRef buffer As String)
buffer = "Demonstration"
End Sub

Sub GetDescription(ByRef buffer As String)
'Насчет "#$D#$A" неуверен
buffer = "This is demonstration plugin." & vbCrLf & "It sent ""Passed"" on ""Ping"" message.'"
End Sub

Sub Configure(hwnd As Long)
  Call MessageBox( _
     hwnd, _
     "This is demonstration plugin." & vbCrLf & _
     "It doesn't required any settings." & vbCrLf & _
     "See ""FChat\Plugins\Demo\Demo.dpr"" to learn how to develop plugins.", _
     "Configure", _
     MB_OK Or MB_ICONINFORMATION)
End Sub

Sub OnMessage( _
    ByRef sChatRoomName As String, _
    ByRef sMessage As String, _
    ByRef sNickName As String, _
    ByRef sAddress As String)
'    sChatRoomName - Chatroom name
'    sMessage - Message text
'    sNickName - Chatter nickname
'    sAddress - Chatter address

' On public message
End Sub


Sub OnMyMessage( _
    ByRef sChatRoomName As String, _
    ByRef sMessage As String)
' On my public message
End Sub

Sub OnPersonalMessage( _
    ByRef sChatRoomName As String, _
    ByRef sMessage As String, _
    ByRef sNickName As String, _
    ByRef sAddress As String, _
    ByRef sReply As String)

'    sChatRoomName - Chatroom name
'    sMessage - Message text
'    sNickName - Chatter nickname
'    sAddress - Chatter address
'    sReply - Text for reply (default - empty - no reply)


'   On personal message

If (LCase(sMessage) = "ping") Then sReply = "Passed"
End Sub

Sub OnMyPersonalMessage( _
    ByRef sChatRoomName As String, _
    ByRef sMessage As String, _
    ByRef sNickName As String, _
    ByRef sAddress As String)

'    sChatRoomName - Chatroom name
'    sMessage - Message text
'    sNickName - Chatter nickname
'    sAddress - Chatter address


'On my personal message
End Sub

Sub OnConnected( _
    ByRef sChatRoomName As String, _
    ByRef sNickName As String, _
    ByRef sAddress As String)

'    sChatRoomName - Chatroom name
'    sNickName - Chatter nickname
'    sAddress - Chatter address

'Chatter connected
End Sub

Sub OnDisconnected( _
    ByRef sChatRoomName As String, _
    ByRef sNickName As String, _
    ByRef sAddress As String)

'    sChatRoomName - Chatroom name
'    sNickName - Chatter nickname
'    sAddress - Chatter address

'Chatter disconnected
End Sub

'exports
'  GetTitle,
'  GetDescription,
'  Configure,
'  OnMessage,
'  OnMyMessage,
'  OnPersonalMessage,
'  OnMyPersonalMessage,
'  OnConnected,
'  OnDisconnected;
'
Sub main()
' Initialization part
End Sub


ЗЫ
Перевод с делфей - дело правое, делфи язык леньтяев

[SHURUP]

Serega.I, спасибо за попытку помочь…
но…
Слишком позно я заметил, что созданая ДЛЛ-ка должна быть вовсе не activeX, а такая, чтоб ее можно было через Declare объявлять(Native, вроде бы). А как делать эти самые Native - я не знаю! По форуму искал - нашел! Много думал! Ничего не понял! Где этот ЛИНК.ЕХЕ скачать можно?

[tyomitch]

SHURUP, если нет спецлинкера - то есть способ лучше: задай в Свойствах Системы - Дополнительно - Переменные среды переменную "LINK" со значением "/FIXED:NO", тогда и обычный линкер подойдёт.

[SHURUP]

Создал! Никаких изменений.
tyomitch, Можешь мне, ламеру, разжевать, что за чем делать при компиляции? (и перед ней)
Я, кстати не совсем понял - таким методом собранная ДЛЛ-ка будет работать с готовым ЕХЕ-шником (как плагин)? Или этот изощеренный метод работает только для собственных программ?

[GSerg]

Исходник псевдолинкера выглядит следующим образом...

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

Option Explicit

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpAppName As String, ByVal lpCmdLine As String, lpProcAttr As Any, lpThreadAttr As Any, ByVal lpInheritedHandle As Long, ByVal lpCreationFlags As Long, ByVal lpEnv As Long, ByVal lpCurDir As String, lpStartupInfo As STARTUPINFO, lpProcessInfo As PROCESS_INFORMATION) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const INFINITE As Long = &HFFFFFFFF

Private Type STARTUPINFO
  cb As Long
  lpReserved As String
  lpDesktop As String
  lpTitle As String
  dwX As Long
  dwY As Long
  dwXSize As Long
  dwYSize As Long
  dwXCountChars As Long
  dwYCountChars As Long
  dwFillAttribute As Long
  dwFlags As Long
  wShowWindow As Integer
  cbReserved2 As Integer
  lpReserved2 As Integer
  hStdInput As Long
  hStdOutput As Long
  hStdError As Long
End Type

Private Type PROCESS_INFORMATION
  hProcess As Long
  hThread As Long
  dwProcessID As Long
  dwThreadID As Long
End Type

Sub Main()
  Dim si As STARTUPINFO, pi As PROCESS_INFORMATION
 
  si.cb = Len(si)
  si.dwFlags = 1
 
  CreateProcess vbNullString, "link_old.exe " & Command$ & " /FIXED:NO", ByVal 0&, ByVal 0&, 1, 0, 0, vbNullString, si, pi
  WaitForSingleObject pi.hProcess, INFINITE
  CloseHandle pi.hProcess
  CloseHandle pi.hThread
  End
End Sub

[SHURUP]

Всем Спасибо! Буду пробовать!