VPF::Непонятная ошибка!! - Форум программистов

Chpok

Дата 31.10.2006, 06:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 17.10.2006
Где: Томск, ул. Геолог ов

Репутация: нет
Всего: нет

Привет, программисты!

Что-то непонятное творится!!!
Написал вот такую функцию, и...как бы сказать...

Код


procedure TfrAdditionLW.wdReportClose;
var
  fs: TFileStream;
  s: TMemoryStream;
  fn: OleVariant;
begin
  // Сохранить документ из Word'а в BLOB-поле базы
  try
    fn:=GetPathOfTemp+'cl_doc.dat';
    wdReport.SaveAs(fn);
    fs:=TFileStream.Create(GetPathOfTemp+'cl_doc.dat',fmOpenRead);

Вот до сюда курсор доходит при пошаговом запуске...
И всё!!! Управление передается программе: дальше событие не выполняется...
Пробывал закомментировать, то же самое, только на следующей строчке, как-будто событие может только из трех операторов состоять smile

Код


dmDB.Execute(Format('INSERT INTO '+DB_NAME+'.blob_tbl(body) VALUES ("%s");',[StreamToString(fs)]));
  finally
    fs.Free;
    // Удалить файл
  end;

  // Взять документ из BLOB-поля базы и вставить в OLE-контейнер
  try
    s:=dmDB.GetBLOB(dmDB.InsertedID);
    s.SaveToFile(GetPathOfTemp+'cl_blob.dat');
    ocReport.CreateObjectFromFile(GetPathOfTemp+'cl_blob.dat',False);
  finally
    fs.Free;
  end;
end;

Что делать, милые люди!? smile

dumb

Дата 31.10.2006, 07:57 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 13
Всего: 158

TFileStream.Create генерирует исключение и управление переходит в блок finally.
если закомменировать создание потока, то исключение, соответственно, генерируется при попытке StreamToString(fs).

проверь, что там у тебя в GetPathOfTemp, и создается ли файл в результате wdReport.SaveAs(fn)

Fedia

Дата 1.11.2006, 04:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13

Chpok,
данные из файла необходимо не только считать, но и преобразовать. Каждый символ с кодом #0 заменить на пару символов '\' + #0:

Код


  function FileDataToSqlValue(FName: string): string;
  var
    f: TFileStream;
    i, n, len: Integer;
    ArB: array [0..15] of Char;
  begin
    f:=TFileStream.Create(FName, fmOpenRead);
    SetLength(Result, f.Size);
    len:=0;
    while f.Position < f.Size do
    begin
      if f.Size - f.Position > 15 then
      n:=16 else
      n:=f.Size - f.Position;
      f.Read(ArB, n);
      for i:=len + 1 to len + 1 + n do
      Result[i]:=ArB[i - Len - 1];
      inc(len, n);
    end;
    Result:=StringReplace(Result, #0, '\' + #0, [rfReplaceAll]);
    FreeAndNil(f);
  end;

Если все правильно реализовано в плане самого запроса в строчке:

Код


dmDB.Execute(Format('INSERT INTO '+DB_NAME+'.blob_tbl(body) VALUES ("%s");',[StreamToString(fs)]));

, то запрос:

Код


dmDB.Execute(Format('INSERT INTO '+DB_NAME+'.blob_tbl(body) VALUES ("%s");',[FileDataToSqlValue(FName)]));

теоретически должен сработать.

--------------------

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »