Wpisy z tagiem: delphi

BEGIN
  FOR CUR IN (SELECT * FROM ALL_OBJECTS 
                        WHERE OWNER = :USER
                              and STATUS = 'INVALID' 
                              and OBJECT_TYPE <> 'JAVA CLASS'
                              and OBJECT_NAME = :OBJECT_NAME) LOOP
  BEGIN
    IF CUR.OBJECT_TYPE = 'PACKAGE BODY' THEN
      EXECUTE IMMEDIATE 'ALTER PACKAGE "'||CUR.OWNER||'"."'||CUR.OBJECT_NAME||'" COMPILE BODY';
    ELSE
      EXECUTE IMMEDIATE 'ALTER '||CUR.OBJECT_TYPE||' "'||CUR.OWNER||'"."'||CUR.OBJECT_NAME||'" COMPILE'; 
    END IF;
  END;
  END LOOP;
END;

    for var k: integer := 0 to FFilList.Count - 1 do
    begin
      if TdmMainModule.Instance.LoadScriptFromFileFD(FFilList[k].value) then
      try
        TdmMainModule.Instance.qScript.ExecuteAll;
        if ((FFilList[k].objectType <> TObjectEnum.oeOthers) and (pAutoCompile)) then
          TryCompileObject(FFilList[k].value); //tu jest execute powyższego PL/SQL'a

        if Assigned(fOnGetText) then
          fOnGetText('OK: ' + FFilList[k].value + ' ' + sAddInfo);
      except
        on e: Exception do
          if Assigned(fOnGetText) then
            fOnGetText('Fail: ' + FFilList[k].value + ' ' + e.Message);
      end;
    end;

ORA-24344: Success with Compilation Error

OCI_SUCCESS =                               0;      // maps to SQL_SUCCESS of SAG CLI
  OCI_SUCCESS_WITH_INFO =                     1;      // maps to SQL_SUCCESS_WITH_INFO
  OCI_RESERVED_FOR_INT_USE =                200;      // reserved
  OCI_NO_DATA =                             100;      // maps to SQL_NO_DATA
  OCI_ERROR =                                -1;      // maps to SQL_ERROR
  OCI_INVALID_HANDLE =                       -2;      // maps to SQL_INVALID_HANDLE
  OCI_NEED_DATA =                            99;      // maps to SQL_NEED_DATA
  OCI_STILL_EXECUTING =                   -3123;      // OCI would block error

procedure TOCIError.Check(ACode: sword; AInitiator: TObject = nil);
begin
  if FIgnoreErrors then
    Exit;
  case ACode of
  OCI_SUCCESS:
    ;
  OCI_NEED_DATA,
  OCI_INVALID_HANDLE,
  OCI_STILL_EXECUTING,
  OCI_CONTINUE:
    FDException(AInitiator, EOCINativeException.Create(Self, ACode, '')
       {$IFDEF FireDAC_Monitor}, Env.Tracing {$ENDIF});
  OCI_SUCCESS_WITH_INFO:
    begin
      ClearInfo;
      FInfo := EOCINativeException.Create(Self);
    end;
  OCI_NO_DATA,
  OCI_ERROR:
    FDException(AInitiator, EOCINativeException.Create(Self)
      {$IFDEF FireDAC_Monitor}, Env.Tracing {$ENDIF});
  else
    ;
  end;
end;

procedure GetGPSCoordinates(const pCOM, pBaudRate: integer; pOnGPS: Pointer); stdcall;
begin
  TGPSLib.Instance.GPS.Com := pCOM;
  TGPSLib.Instance.GPS.BaudRate := pBaudRate;
  TGPSLib.Instance.OnGPS := pOnGPS;
  TGPSLib.Instance.GPS.Active := True;
end;

type
  TOnGetGPS = procedure(const pLat, pLon: Extended) stdcall;
  TGPSLib = class
  ...
    vOnGPS: TOnGetGPS;
    procedure GPSPosition(Sender: TObject);
 ...
    property OnGPS: TOnGetGPS read vOnGPS write vOnGPS;
  end;
...
procedure TGPSLib.GPSPosition(Sender: TObject);
begin
  if Assigned(vOnGPS) then
      vOnGPS(vGPS.Latitude,vGPS.Longitude);
end;

type
  TOnGetGPS = procedure(const pLat, pLon, pAlt: Extended) stdcall;
...
procedure TGPSLib.GPSPosition(Sender: TObject);
begin
  if Assigned(vOnGPS) then
      vOnGPS(vGPS.Latitude,vGPS.Longitude, vGPS.Altitude);
end;