Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Так работает а так нет в чем собака зарылась? [D6, XP]

sdram © (2006-12-07 13:46:00)
вот так работает!
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;

iXT (2006-12-07 17:46:00) [1]
А тут все бред. Начиная с самого начала.
Хотябы использование Variant, и вообще он с типами разбираться не хочет. Не знаю говорит и все тут. А поэтому Variant. Delphi пускай сама думает.

Palladin (2006-12-07 17:42:00) [2]
вот сиди и угадывай чего там не видно, где что вызывается и что на чем лежит, зато кретинами обозвать - так это долго думать не нужно...

Palladin (2006-12-07 17:33:00) [3]
так это понятно, но тогда это что за бред?

type
OA: TOutlookApplication;

iXT (2006-12-07 17:19:00) [4]

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

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

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

Palladin (2006-12-07 17:03:00) [5]

> [9] sdram

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

iXT (2006-12-07 16:08:00) [6]
А ты думаешь я знал, пока ты не спросил? Ведь посмотреть можно, правда. Я вот посмотрел, а ты привел [5] нашару.
Теперь едим дальше... Вот на что должно это на толкнуть?

> "Invalid variant operation"

=>
Variant + F1

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

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

sdram (2006-12-07 15:38:00) [7]
>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;

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

oxffff (2006-12-07 15:01:00) [8]
dear, sdram!

There is mistakes in your program.

Where?

Your program has the mistake.

Are you sure?

Are you silly?

iXT (2006-12-07 15:01:00) [9]
Тебя не критикуют, а наставляют на путь истинный. Покажи в каком месте тебя обидели.

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

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

oxffff (2006-12-07 15:01:00) [10]
dear, sdram!

There are mistakes in your program.

Where?

Your program has the mistake.

Are you sure?

Are you silly?

sdram (2006-12-07 14:46:00) [11]
>iXT

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

sdram (2006-12-07 14:40:00) [12]
>Palladin ©
я поместил его на форму

iXT (2006-12-07 14:33:00) [13]

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

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

Palladin (2006-12-07 14:26:00) [14]
какой компанент? где он создан? с чего ты взял что он создан?

sdram (2006-12-07 14:15:00) [15]
и вот так не работает

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

end;

sdram (2006-12-07 14:03:00) [16]

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

TOutlookApplication.Application;

Elen (2006-12-07 13:58:00) [17]

> sdram

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

Elen (2006-12-07 13:58:00) [18]

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

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

sdram (2006-12-07 13:53:00) [19]
меня локальное обьявление не устаивает, и никак не могу дойти отчего такая трабла происходит?

TIF (2006-12-07 13:50:00) [20]
так выбери вариант, который работает :-)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »