Так работает а так нет в чем собака зарылась?

← →
sdram (2006-12-07 13:46) [0]

вот так работает!
type OA: TOutlookApplication; Procedure Test var MyOlApp: Variant; begin MyOlApp := OA.Application; end;
А так нет!!?????
type OA: TOutlookApplication; var MyOlApp: Variant; Procedure Test begin MyOlApp := OA.Application; возникает ошибка !!! (raised exception class EVariant Error with message "Invalid variant operation") end;

← →
TIF © (2006-12-07 13:50) [1]

так выбери вариант, который работает :-)

← →
sdram (2006-12-07 13:53) [2]

меня локальное обьявление не устаивает, и никак не могу дойти отчего такая трабла происходит?

← →
Elen © (2006-12-07 13:58) [3]

> так выбери вариант, который работает :-)

Ага. И будет бяка если использовать MyOlApp за пределами Test.

← →
Elen © (2006-12-07 13:58) [4]

> sdram

Какой тип возвращает OA.Application ?

← →
sdram (2006-12-07 14:03) [5]

> Какой тип возвращает OA.Application ?

TOutlookApplication.Application;

← →
sdram (2006-12-07 14:15) [6]

и вот так не работает

Procedure Test var t: Variant; begin t := OA.Application ; MyOlApp := t;возникает ошибка !!!
(raised exception class EVariant Error with message "Invalid variant operation")

end;

← →
Palladin © (2006-12-07 14:26) [7]

какой компанент? где он создан? с чего ты взял что он создан?

← →
iXT (2006-12-07 14:33) [8]

> sdram (07.12.06 14:03) [5]
>
> > Какой тип возвращает OA.Application ?
>
>
> TOutlookApplication.Application;

Да что ты говоришь.

← →
sdram (2006-12-07 14:40) [9]

>Palladin ©
я поместил его на форму

← →
sdram (2006-12-07 14:46) [10]

>iXT

А по существу можеш чего нибудь добавить?
или ты из этих "которые всех критикуют" критины вроде.

← →
oxffff © (2006-12-07 15:01) [11]

dear, sdram!

There is mistakes in your program.

Where?

Your program has the mistake.

Are you sure?

Are you silly?

← →
oxffff © (2006-12-07 15:01) [12]

dear, sdram!

There are mistakes in your program.

Where?

Your program has the mistake.

Are you sure?

Are you silly?

← →
iXT (2006-12-07 15:01) [13]

Тебя не критикуют, а наставляют на путь истинный. Покажи в каком месте тебя обидели.

Ты должен сам найти ответ, а мы помогаем тебе его искать, а не ищем за тебя. Инатче ты через неделю еще раз будешь спрашивать.

Посуществу: Прочитай еще раз [5]
И еще: MyOlApp - зачем тебе эта переменная?

← →
sdram (2006-12-07 15:38) [14]

>iXT
Не знаю я какой тип, но при локальном обьявлении MyOlApp, почему то ошибок не возникает?

MyOlApp использую потому как в полной версии использую

procedure TfAViewer.ConnectOutlook(Connect:Boolean); //procedure TOutlookConnect.ConnectOutlook(Connect:Boolean); begin if Connect then begin try MyOlApp:= OA.Application; MyNameSpace:=OA.Application.GetNamespace("MAPI"); _Active := true; sbAV.Panels[2].Text := ""; except sbAV.Panels[2].Text := "Outlook registration failed"; _Active := false; end; end else begin MyOlApp:=NULL; MyNameSpace:=NULL; end; _Active:=Connect; end;

для подключения к аутглюку а

function TfAViewer.CreateMail(Recipient:String):Variant; var MyMail:Variant; begin if not _Active then sbAV.Panels[0].Text := "íåò ñâÿçè ñ outlook"; try MyMail:=myNameSpace.GetDefaultFolder(olFolderOutBox).Items.Add; MyMail.To:=Recipient; Result:=MyMail; except sbAV.Panels[0].Text := "Cannot create mail"; end; end;

для отправки почты.

← →
iXT (2006-12-07 16:08) [15]

А ты думаешь я знал, пока ты не спросил? Ведь посмотреть можно, правда. Я вот посмотрел, а ты привел [5] нашару.
Теперь едим дальше... Вот на что должно это на толкнуть?

> "Invalid variant operation"

=>
Variant + F1

P.S.
Не факт, но попробуй OleVariant, хотя я не совсем понял, пучему нельзя
MyOlApp:=NULL;
OA.Application:=NULL;

И вообще чтобы отправить мыльцо, зачем юзать оутлук? (хотя хозяин - барин)

> [9] sdram

на какую форму ты его поместил? я вообще здесь ни одной формы не вижу. как не вижу создания OE. так же как и не понимаю такого бреда как
type
OA: TOutlookApplication;

← →
iXT (2006-12-07 17:19) [17]

> Palladin © (07.12.06 17:03) [16]

Форма - Она же невидимая :)

Телепатор подсказывает что компонент с закладки Servers. Очень похож на значек outглюк

так это понятно, но тогда это что за бред?

type
OA: TOutlookApplication;

вот сиди и угадывай чего там не видно, где что вызывается и что на чем лежит, зато кретинами обозвать - так это долго думать не нужно...

← →
iXT (2006-12-07 17:46) [20]

А тут все бред. Начиная с самого начала.
Хотябы использование Variant, и вообще он с типами разбираться не хочет. Не знаю говорит и все тут. А поэтому Variant. Delphi пускай сама думает.

Так работает а так нет в чем собака зарылась? Найти похожие ветки