1

Exception class $C0000005 with message 'access violation at 0x67d86896

Topic: Exception class $C0000005 with message 'access violation at 0x67d86896

Здравствуйте, такая проблема, пытаюсь получить сообщения от объекта, вылазит ошибка, нарушения прав доступа
вот код
Const
     SecPerDay    =  86400;
     Offset1970  =  25569;




var WialonCollection, WialonCol: iWialonCollection;

    WialonUnt: IWialonUnit;
    unt: Variant;
    Msg: IWialonUnitMsg;
    MsgV: Variant;
    IDspach,Disp: IDispatch;
    IWialon: IwialonUnit;

function  UnixTimeToDateTime(UnixTime  :  LongInt):  TDate;
begin
     Result  :=  UnixTime  /  SecPerDay  +  Offset1970;
end;

function  DateTimeToUnixTime(DelphiDate  :  TDate)  :  LongInt;
begin
     Result  :=  Trunc((DelphiDate  -  Offset1970)  *  SecPerDay);
end;






procedure TForm2.Button1Click(Sender: TObject);
Var i: Real;
begin
WialonConnection1.Connect;
WialonCollection:=WialonConnection1.Login('https://activex.gurtam.com',443,'*****','12345');

    WialonUnt:=WialonCollection.Item[3] as IWialonUnit;
    ShowMessage(WialonUnt.Name);

try
WialonCol:=WialonUnt.GetMessages(DateTimeToUnixTime(StrToDateTime('16.01.2013 10:50:00')),DateTimeToUnixTime(StrToDateTime('17.01.2013 11:00:00'))) as IWialonCollection;
except

end;


    ShowMessage(IntToStr(WialonCol.Count));



end;

В чем проблема? Помогите пожалуйста