W
wangxumian
Unregistered / Unconfirmed
GUEST, unregistred user!
FUNCTION pk(a:integer)
OUBLE; stdcall;external 'scott.dll' name 'pk';<br>{$R *.dfm}<br><br>procedure TForm1.bsSkinButton1Click(Sender: TObject);<br>var<br> I:Integer;<br> m1ouble;<br>begin<br> m.Clear;/M 为memo<br> m1:=0.0;<br> for i:=0 to fl.Items.Count-1 do//FL 为 LISTBOX<br> begin<br> // sp.Caption:='处理..:'+fl.Items.Strings;<br>// Application.HandleMessage;<br> if FileExists(ExtractFilePath(Paramstr(0))+'de.wav')<br> then DeleteFile(ExtractFilePath(Paramstr(0))+'de.wav');<br> CopyFile(PChar(fl.Items.Strings),PChar(ExtractFilePath(Paramstr(0))+'de.wav'),false);<br> m1:=pk(100);//PK 为 DLL中函数<br> ShowMessage(FLOATToStr(m1)); // 到这一步执行ok<br> m.Lines.Add('PPP');//马上出错<br> end;<br>end;
OUBLE; stdcall;external 'scott.dll' name 'pk';<br>{$R *.dfm}<br><br>procedure TForm1.bsSkinButton1Click(Sender: TObject);<br>var<br> I:Integer;<br> m1ouble;<br>begin<br> m.Clear;/M 为memo<br> m1:=0.0;<br> for i:=0 to fl.Items.Count-1 do//FL 为 LISTBOX<br> begin<br> // sp.Caption:='处理..:'+fl.Items.Strings;<br>// Application.HandleMessage;<br> if FileExists(ExtractFilePath(Paramstr(0))+'de.wav')<br> then DeleteFile(ExtractFilePath(Paramstr(0))+'de.wav');<br> CopyFile(PChar(fl.Items.Strings),PChar(ExtractFilePath(Paramstr(0))+'de.wav'),false);<br> m1:=pk(100);//PK 为 DLL中函数<br> ShowMessage(FLOATToStr(m1)); // 到这一步执行ok<br> m.Lines.Add('PPP');//马上出错<br> end;<br>end;