VC静态调用DELPHI DLL
Delphi(Pascal) code:
library Smart;
uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
SmartWord in 'SmartWord.pas' {frmSmartWord},
pub in 'pub.pas';
{$R *.res}
var
AppDLL:TApplication;
ScrDLL:TScreen;
//
procedure MyDLLProc(Reason:Integer);
begin
try
if Reason=DLL_PROCESS_DETACH then
begin
Application:=AppDLL;
Screen:=ScrDLL;
end;
except
on e:Exception do
begin
ShowMessage(e.Message);
end;
end;
end;
//function SmartWord(App:TApplication;Scr:TScreen;DoctorName,UserName:PChar):Boolean;stdcall;
function SmartWord(DoctorName,UserName:PChar):Boolean;stdcall;
begin
//Application:=App;
//ScrDLL:=Screen;
//showmessage(doctorname);
//showmessage(username);
sDoctorName:=DoctorName;
sUserName:=UserName;
if not Assigned(frmSmartWord) then
Application.CreateForm(TfrmSmartWord,frmSmartWord);
frmSmartWord.Show;
end;
exports
SmartWord;
begin
try
AppDLL:=Application;
ScrDLL:=Screen;
DLLProc:=@MyDLLProc;
except
on e:Exception do
ShowMessage(e.Message);
end;
end.
用delphi来静态调用没有问题
Delphi(Pascal) code:
function SmartWord(DoctorName,UserName:PChar):Boolean;stdcall;ex
相关问答：
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
主窗体:
Delphi(Pascal) code:
procedure TfrmMain.btnResumeClick(Sender: TObject);
begin
myThread := TClientThread.Create(LeftPart(cbbServer.Text, ':'), StrToInt(RightPart(cbbServer.Text, ':')) ......
例子程序见附件，用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
