Показать сообщение отдельно
Старый 16.05.2007, 13:14   #23  
balashov is offline
balashov
Участник
Аватар для balashov
 
78 / 10 (1) +
Регистрация: 01.09.2005
Цитата:
Сообщение от RedFox Посмотреть сообщение
А можете тогда пример работы привести?
Загонять в блоб, код размещается в событие контрола
Код:
IF FieldName.IMPORT('', TRUE) = '' THEN
  EXIT;
IF FieldName.HASVALUE THEN
  IF NOT CONFIRM(Text001, TRUE, FIELDCAPTION(FieldName)) THEN
	EXIT;
CurrForm.SAVERECORD;
Выгрузка из blob
Код:
IF COPYSTR(Path, STRLEN(Path), 1) <> '\' THEN
  Path := Path + '\';
FileName:='FileName';
TableName.CALCFIELDS(FieldName);
IF (TableName.FieldName.HASVALUE) AND (STRLEN(Path)>0) THEN BEGIN
  PathFileName:=TableName.FieldName.EXPORT(Path+FileName);