M
m_y_h
Unregistered / Unconfirmed
GUEST, unregistred user!
程序是从一张光盘上拷下来的.<br>在动态链接库调用结束时有出错信息:<br>"0x00000000"指令引用的"0x00000000"内存.该内存不能为"read".<br><br>dll中的代码:<br>function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime;<br>var<br> DLLForm: TDllForm;<br>begin<br> // Copy application handle to DLL's TApplication object<br> Application.Handle := AHandle;<br> DLLForm := TDLLForm.Create(Application); <br> try<br> DLLForm.Caption := ACaption;<br> DLLForm.ShowModal;<br> Result := DLLForm.calDLLCalendar.CalendarDate; // Pass the date back in Result<br> finally<br> DLLForm.Free;<br> end;<br>end;<br><br>exe程序代码:<br>procedure TMainForm.btnGetCalendarClick(Sender: TObject);<br>var<br> LibHandle : THandle;<br> ShowCalendar: TShowCalendar;<br>begin<br> { Attempt to load the DLL }<br> LibHandle := LoadLibrary('CALENDARLIB.DLL');<br> try<br> { If the load failed, LibHandle will be zero.<br> If this occurs, raise an exception. }<br> if LibHandle = 0 then<br> raise EDLLLoadError.Create('Unable to Load DLL');<br> { If the code makes it here, the DLL loaded successfully, now obtain<br> the link to the DLL's exported function so that it can be called. }<br> @ShowCalendar := GetProcAddress(LibHandle, 'ShowCalendar');<br> { If the function is imported successfully, then set lblDate.Caption to reflect<br> the returned date from the function. Otherwise, show the return raise<br> an exception. }<br> if not (@ShowCalendar = nil) then<br> lblDate.Caption := DateToStr(ShowCalendar(Application.Handle, Caption))<br> else<br> //RaiseLastWin32Error;<br> RaiseLastOSError;<br> finally<br> FreeLibrary(LibHandle); // Unload the DLL.<br> end;<br>end;<br>