Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2007, 19:11   #1
gluk666
 
Регистрация: 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.
gluk666 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
OleContainer, Com object Shuraken Компоненты Delphi 6 09.11.2007 12:13
Помогите, пожалуйста! Wander Помощь студентам 1 22.05.2007 22:20