Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

ПОМОГИТЕ   Найти похожие ветки 

← →
СРОЧНО   (2002-03-31 14:19) [0]

У МЕНЯ СЛОЖИЛАСЬ ПРОБЛЕМА вот КОД
implementation
constructor EOleSysError.Create(const Message: string;
ErrorCode: HRESULT; HelpContext: Integer);
var
S: string;
begin
S := Message;
if S = "" then
begin
S := SysErrorMessage(ErrorCode);
if S = "" then FmtStr(S, sOLeError, [ErrorCode]); // Вот тут ошибка!!!!!!!!!
end;
inherited CreateHelp(S, HelpContext);
FErrorCode := ErrorCode;
end;


procedure OleError(ErrorCode: HResult);
begin
raise EOleSysError.Create("", ErrorCode, 0);
end;
procedure OleCheck(Result: HResult);
begin
if not Succeeded(Result) then OleError(Result);
end;

function ProgIDToClassID(const ProgID: string): TGUID;
begin
OleCheck(CLSIDFromProgID(PWideChar(WideString(ProgID)), Result));
end;

function CreateOleObject(const ClassName: string): IDispatch;
var
ClassID: TCLSID;
begin
ClassID := ProgIDToClassID(ClassName);
OleCheck(CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or
CLSCTX_LOCAL_SERVER, IDispatch, Result));
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var MSOutlook,
MyNameSpace
, MyFolder,
MyItem: Variant;
s: string;
i: Integer;
begin
try
MSOutlook := CreateOleObject("Outlook.Application");
MyNameSpace := MSOutlook.GetNameSpace("MAPI");
MyFolder := MyNamespace.GetDefaultFolder(olFolderContacts);
for i := 1 to MyFolder.Items.Count do begin
MyItem := MyFolder.Items[i];
s := s + "Email1Address: " + MyItem.Email1Address + #13;
end;
Memo1.Lines.Add(s);
except
end;

end;



Объясните и помогите что if S = "" then FmtStr(S, sOLeError, [ErrorCode]); тут означает SOLEError

---

← →
Rooman   (2002-03-31 14:27) [1]

шаблон для форматирования строки.
что-то я не вижу, где он у тебя, во-первых, определяется как var, а во-вторых, присваивается ему строковое значение...
может, надо подключить соотв. модуль...

---

← →
СРОЧНО   (2002-03-31 14:33) [2]

В том то и дело мне сказали сделать это без модулей, к примеру какие там могут быть значения

---

← →
Rooman   (2002-03-31 14:47) [3]

"%d"
элементарных вещей не знаешь, а уже в COM объекты полез... глупо!

---

← →
I   (2002-03-31 14:48) [4]

половину я вырезал из OleObj.pas

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c