|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.01.2007, 19:11 | #1 |
Регистрация: 17.12.2006
Сообщений: 3
|
Помогите, пожалуйста, с OleContainer!
Исправьте, пожалуйста правильно, в этом коде RichEdit на OleContainer !!!
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm6 = class(TForm) ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure ListBox1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form6: TForm6; Path, Dir, FileName, PathSelectFile: string; Mask: string; rec: TSearchRec; index: integer; FHANDLE: thandle; implementation uses Perviz; {$R *.dfm} procedure TForm6.FormCreate(Sender: TObject); var result: integer; begin Dir:='D:\Diplom\Proga\421\Open\PerV iz\'; Form6.Caption:=Dir; Mask:='*.doc'; Path:=dir+mask; result:=FindFirst(Path,faAnyFile,re c); if (result <> 0) then MessageBox(0,'File not found','error',0) else begin repeat FileName:=rec.Name; ListBox1.Items.Add(FileName); result:=FindNext(rec); until (result <> 0); end; end; //------------------------------------ procedure TForm6.ListBox1DblClick(Sender: TObject); var iFileLength: Integer; Buffer: PChar; begin index:= Form6.ListBox1.ItemIndex; PathSelectFile:=Dir+Form6.ListBox1. Items.Strings[index]; Form6.Visible:= false; Form5.visible:=true; FHANDLE:= FileOpen(PathSelectFile,fmOpenRead) ; iFileLength := FileSeek(FHANDLE ,0,2); FileSeek(FHANDLE ,0,0); Buffer := PChar(AllocMem(iFileLength + 1)); FileRead(FHANDLE , Buffer^, iFileLength); FileClose(FHANDLE); *********************************** ****** ********* Form5.RichEdit1.Lines.Add(Buffer);* ***** *********************************** ****** ReallocMemory(Buffer, iFileLength+1); PathSelectFile:=''; end; end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
OleContainer, Com object | Shuraken | Компоненты Delphi | 6 | 09.11.2007 12:13 |
Помогите, пожалуйста! | Wander | Помощь студентам | 1 | 22.05.2007 22:20 |