アドレスに対する読み込み違反の解決方法 (ID:42659)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ちなみにエラーの出るリアルソースです。
//////////////////////////////////////////////////////////////////
//DLL呼び出し
function AcceptOrderCreate(hWnd: THandle; User,Password:PChar):WordBool; stdcall;
begin
  Result := False;
  //引数処理
  Application.Handle := hWnd;
  UserCode := User;
  SQLPassword:=Password;
  //サイドフォーム管理
  dmDatabase       := TdmDatabase.Create(Application);
  frmSectionSelect := TfrmSectionSelect.Create(Application);
  frmDayMissFollow := TfrmDayMissFollow.Create(Application);
  frmOrderCheck    := TfrmOrderCheck.Create(Application);

//自分
  frmMain := TfrmMain.Create(Application);
  frmMain.Show;
end;

exports AcceptOrderCreate;
/////////////////////////////////////////////////////////////////////
//終了処理
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //更新があったら
  if QualifeCheck then
  begin
    if MessageDlg('情報が更新されています。保存してもいいですか？',mtConfirmation ,[mbYes, mbNo], 0) = mrYes then
      actDBAddExecute(Sender);
  end;

WriteIni;
  //解放
  frmMain.Free;
  frmSectionSelect.Free;
  frmDayMissFollow.Free;
  frmOrderCheck.Free;
  
  dmDataBase.Free;

Application.Handle := 0;
end;

グリッドを使わないカード型の入力フォームはエラーでないんです。

←解決時は質問者本人がここをチェックしてください。

戻る