DBAccess.pas에서 어설 션 오류가 발생했습니다.

Question

ODAC v5에서 v8.2.8로 소프트웨어 제품군을 업그레이드하는 데 관심이 있습니다.

특히 한 응용 프로그램이 문제를 일으키는 중입니다. 이 응용 프로그램은 dll로 구현 된 보조 응용 프로그램 집합 중 하나를로드합니다. 그것 자체 데이터베이스에 연결되어, 나는 매우 행복하게 다양한 ODAC 단위를 단계별로 수 -

LibHandle := LoadLibrary(PChar(dllname)); 
if LibHandle <> 0 then 
begin 
    @showForm := GetProcAddress(LibHandle,'ShowMainDllForm'); 
    if (@showForm <> nil) then 
    begin 
    try 
     ShowForm(Application.Handle, @FGlobalVars, 1); 

런처가 괜찮습니다.

그러나 dll은 즉시 커서를 열려고 시도하는 것을 제외합니다. 오류는 MemDs.pas에서 호출 된 DBAccess.pas 장치의 어설 션 오류입니다. 나는 이걸 밟았으며 주장의 실패가 옳았다는 것을 보여 주었다. Assert(FieldDesc is TCRFieldDesc)은 을 MemDS.CreateFieldDefs()에서받습니다.

나는 혼란 스럽습니다. 어떻게 하나의 호출 방법이 잘 작동하는 (런처 앱) 다른 하나 (DLL)가 항상 실패 할 수 있습니까? 사람이 내가 어떤 정보를 감사하겠습니다이 분야에서 어려움을 경험 한 경우

그러나 얇은 그것은 우리는 이미이 문제를 해결 한

Answer 1

소리가 있습니다. 당신은 최신 ODAC 버전 8.6.12을 다운로드하거나 어설를 호출하는 라인을 수정하실 수 있습니다 다음 TCustomDADataSet.GetFieldType 방법

replace 
    Assert(FieldDesc is TCRFieldDesc); 
with 
    Assert(IsClass(FieldDesc, TCRFieldDesc)); 

Answer 2

우리가 사용하는 DEVART MySQL은, 및 SQL 커넥터에

합니다. MySQL (MyDAC) 연결에 대한 정확한 문제점을 경험했습니다. 그러나 내가 발견 한 것은 다음과 같습니다. DBAccess.pas 파일에서 위의 코드가 이미 변경되었습니다.

어설 션 (IsClass (FieldDesc, TCRFieldDesc)));

하지만 여전히 동일한 어설 션 오류가 발생했습니다. 내가 조금 더 밟은하고 CRFunctions 장치에서 발견, 나는 다음과 같이 변경했고, 지금 내 서버 연결은 DLL 파일에서 완벽하게 작동합니다 :

begin 
    if IsLibrary then 
    Result := IsClassByName(Obj, AClass) 
    else 
    //------------------------------------ 
    // Danny MacNevin : October 3,2013 
    // commented out the below line to fix an Assertion Error 
    // using the TMyConnection in a dll file. 
    // It was being called from the DBAccess.pas file at line: 7251 
    // To put this file back to normal, remove the line I added, and 
    // uncomment the line below... 
    //------------------------------------ 
    //Result := Obj is AClass; 
    Result := IsClassByName(Obj, AClass) //Line replaced by Danny 
end;