Текущий архив: 2003.08.07;
Скачать: CL | DM;
Вниз
Работа с Word.Application... Найти похожие ветки
← →
Сергей Енин (2003-07-23 13:11) [0]Вопрос собственно,не один:
1)можно ли загрузить документ не из файла, а из потока или BLOB-поля таблицы БД?
2)каким образом можно вставить свои данные в определенные места документа?
← →
VJack (2003-07-23 14:24) [1]1 можно вроде -
function TCriptoStream.Read(var Buffer; Count: Longint): Longint;
var
j, p: Longint;
Buf: array of byte;
begin
p := Position;
SetLength(Buf,Count);
Result := inherited Read(Buffer,Count);
Move(Buffer,Pointer(Buf)^,Count);
for j := 0 to Count - 1 do
Buf[j]:= Buf[j] Xor ((p + j) mod MOD_OFFSET);
Move(Pointer(Buf)^,Buffer,Count);
Buf := nil;
end;
function TCriptoStream.Write(const Buffer; Count: Longint): Longint;
var
j, p: Longint;
Buf: array of byte;
begin
p := Position;
SetLength(Buf,Count);
Move(Buffer,Pointer(Buf)^,Count);
for j := 0 to Count - 1 do
Buf[j] := Buf[j] Xor ((p + j) mod MOD_OFFSET);
Result := inherited Write(Pointer(Buf)^,Count);
Buf := nil;
end;
извини если не так вопрос понял...
2 - определяешь закладки в ворде и потом что-то вроде
procedure TfrmMain.mnuWordfiledocClick(Sender: TObject);
var
MSWord: Variant;
tmpSL: TStringList;
begin
tmpSL := TStringList.Create;
try
TextFromQuery(tmpSL, sSeparator);
try{works with Word 95 and Word 97 both}
MSWord := CreateOleObject("Word.Basic");
MSWord.AppShow;
MSWord.FileNew;
MSWord.Insert(tmpSL.Text);
{moves the active end of the selection to the beginning of the document}
MSWord.StartOfDocument(1);
MSWord.FieldSeparator(sSeparator);
MSWord.TextToTable(ConvertFrom := 3{user def field separator},
NumColumns := viQuery.FieldCount);
MSWord.CenterPara;
except
on Exception do {take care about all exception here}
Application.MessageBox(PChar(Exception(ExceptObject).Message),
PChar(sCaption), MB_ICONSTOP);
end;//inner try
finally
tmpSL.Free;
end;//outer try
end;
← →
Serginio (2003-07-23 14:47) [2]Word вроде поддерживает IPersistStreamInit и IPersistStorage.
В любом случае посмотри TOleContainer, но он при SaveToStream записывает свои данные. Можешь переопределить или написать свой аналог.
← →
KSergey (2003-07-23 15:04) [3]Сергей Енин (23.07.03 13:11)
2)каким образом можно вставить свои данные в определенные места документа?
Можно в шаблоне в нужные места свтавить некую уникальную комбинацию символов (например, %1, %2 - значение переменной 1 и переменной 2) и просто заменой исправить на нужные значения из прграммы.
Страницы: 1 вся ветка
Текущий архив: 2003.08.07;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.007 c
