Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2012-11-18 14:04:59 правка | ЛС | профиль | цитата


Редактировалось 16 раз(а), последний 2025-02-28 09:19:17
карма: 0

0
Ответов: 1376
Рейтинг: 197
#2: 2012-11-18 14:07:53 ЛС | профиль | цитата
FileTools точка doFileExists
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2012-11-18 14:13:32 правка | ЛС | профиль | цитата


Редактировалось 16 раз(а), последний 2025-02-28 09:19:17
карма: 0

0
Ответов: 1376
Рейтинг: 197
#4: 2012-11-18 14:17:33 ЛС | профиль | цитата
г. l☺l писал(а):
никак не могу создать файл

code_29564.txt
карма: 1

0
файлы: 1code_29564.txt [277B] [1508]
Ответов: 32
Рейтинг: -2
#5: 2018-03-27 17:47:51 ЛС | профиль | цитата
Вот наскребал элемент :
.ini

[About]
Version=1.0
Author=
Mail=

[Type]
Class=Element
Info=Данные в файл (Или новый файл)

[Property]

[Methods]
doCreate=Создание Файла (Путь из потока или Selecteon )|1|
onLoad=При успешной загрузке файлов|2|
Selecteon=Имя файла|4|
SrcStream=Данные в файл|4|

.pas

unit hiFileWrite2;

interface

uses 
  Windows,
  hiEditMultiEx,
  hiMemory,
  hiFileStream,
  hiDoData,
  hiHub,
  hiMultiElementEx,hiMultiBase,kol,Share;

type
  THIFileWrite2 = class(ThiMultiElementEx)
   private
  EditMultiEx_3064A30:THIEditMultiEx;
  Memory_2162B98:THIMemory;
  FileStream_2162C30:THIFileStream;
  DoData_2162CC8:THIDoData;
  Hub_21DA680:THIHub;
    procedure SetonLoad(event:THI_Event);
    procedure SetSelecteon(data:THI_Event);
    procedure SetSrcStream(data:THI_Event);
   public
    Child:THIEditMultiEx;

    constructor Create;
    destructor Destroy; override;
    procedure _work_doCreate(var Data:TData; index:word);
    property _event_onLoad:THI_Event write SetonLoad;
    property _data_Selecteon:THI_Event write SetSelecteon;
    property _data_SrcStream:THI_Event write SetSrcStream;
  end;

implementation


constructor THIFileWrite2.Create;
begin
  inherited Create;
//Init for EditMultiEx;
  EditMultiEx_3064A30 := THIEditMultiEx.Create;
  with EditMultiEx_3064A30 do begin
    SetLength(Works,1);
    SetLength(Vars, 0);
  end;
//Init for Memory;
  Memory_2162B98 := THIMemory.Create;
//Init for FileStream;
  FileStream_2162C30 := THIFileStream.Create;
  with FileStream_2162C30 do begin
    _prop_FileName := PChar(#0);
    _prop_Mode := 1;
    _prop_AutoCopy := True;
  end;
//Init for DoData;
  DoData_2162CC8 := THIDoData.Create;
//Init for Hub;
  Hub_21DA680 := THIHub.Create;
  with Hub_21DA680 do begin
    _prop_InCount := 1;
    _prop_OutCount := 2;
  end;
 //%multi%
 //Make all connection in scheme
  EditMultiEx_3064A30.Works[0]             := _DoEvent(Memory_2162B98._work_doValue,0);
  Memory_2162B98._event_onData             := _DoEvent(Hub_21DA680.doEvent,0);
  Memory_2162B98._data_Data                := _DoEvent(EditMultiEx_3064A30._Data,0);
  FileStream_2162C30._data_FileName        := _DoEvent(Memory_2162B98._var_Value,0);
  DoData_2162CC8._event_onEventData        := _DoEvent(FileStream_2162C30._work_doCopyFromStream,2);
  DoData_2162CC8._data_Data                := _DoEvent(EditMultiEx_3064A30._Data,1);
  Hub_21DA680.onEvent[0]                   := _DoEvent(FileStream_2162C30._work_doOpen,0);
  Hub_21DA680.onEvent[1]                   := _DoEvent(DoData_2162CC8._work_doData,0);

  Child := EditMultiEx_3064A30;
  Child.MainClass := TClassMultiBase(Self); // work but not correct... :(
  Child.Parent := Self;
  SetLength(Events, 1);
  SetLength(Datas, 2);
end;

destructor THIFileWrite2.Destroy;
begin
  Hub_21DA680.Destroy;
  DoData_2162CC8.Destroy;
  FileStream_2162C30.Destroy;
  Memory_2162B98.Destroy;
  EditMultiEx_3064A30.Destroy;
  inherited;
end;

procedure THIFileWrite2._work_doCreate(var Data:TData; index:word);
begin
  _hi_onEvent(Child.Works[0], Data);
end;

procedure THIFileWrite2.SetonLoad;
begin
  Events[0] := event;
end;

procedure THIFileWrite2.SetSelecteon;
begin
  Datas[0] := data;
end;

procedure THIFileWrite2.SetSrcStream;
begin
  Datas[1] := data;
end;



end.

Инструкция ясна ?

--- Добавлено в 2018-03-27 17:50:39

Установка -
1 Сохранить файлы
1.2 Скинуть .ini в HiASM
2 Установить в Delphi Файлы
3 Всё пользуйся

Редактировалось 1 раз(а), последний 2018-03-27 17:50:39
карма: -2
cschanell
0
Ответов: 182
Рейтинг: 14
#6: 2018-08-09 15:06:37 ЛС | профиль | цитата
Вопрос тот же.
Как создать файл на диске C:\
файл sss.txt

Редактировалось 1 раз(а), последний 2018-08-09 15:07:18
карма: 0

0
Ответов: 632
Рейтинг: 4
#7: 2018-08-09 15:24:19 ЛС | профиль | цитата
Stalevar писал(а):
Вопрос тот же.
Как создать файл на диске C:\
файл sss.txt

Редактировалось 1 раз(а), последний 2018-08-09 15:07:18


Add(MainForm,2953706,21,105)
{
 link(onCreate,14190204:doSave,[(60,125)(60,104)])
}
Add(StrList,14190204,175,63)
{
 FileName="C:\sss.txt"
}


--- Добавлено в 2018-08-09 15:25:14

не забудь дать права администратора!

Редактировалось 1 раз(а), последний 2018-08-09 15:25:14
карма: 0

0
Ответов: 182
Рейтинг: 14
#8: 2018-08-09 15:28:05 ЛС | профиль | цитата
Vadimluk1

Спасибо, в жизни бы не нашел.
карма: 0

0
Ответов: 182
Рейтинг: 14
#9: 2018-08-10 19:23:43 ЛС | профиль | цитата
Что то в сетевую папку не сохраняет.
Типа такой: \\Lrfvod-srv\tmp\Output\sss.txt
карма: 0

0
Ответов: 8938
Рейтинг: 824
#10: 2018-08-10 19:58:58 ЛС | профиль | цитата
Stalevar, наш компилятор воспринимает некоторые комбинации символов:
\r
\n
\t
\###
как один символ, поэтому когда в *.sha встречаются такие записи, то они компилируются не так, как написаны. Поэтому в *.sha их применять не надо. А уж если приспичило, то надо применить ДВА слеша:
\\r, \\n, \\t, \\123
\\Lrfvod-srv\\tmp\Output\sss.txt
К символам вводимым в уже работающую программу это не относится.
карма: 19

0
Ответов: 182
Рейтинг: 14
#11: 2018-08-10 20:23:14 ЛС | профиль | цитата
Спасибо Леонид, буду проверять завтра.
карма: 0

0
Ответов: 182
Рейтинг: 14
#12: 2018-08-12 13:48:56 ЛС | профиль | цитата
По пробовал \\Lrfvod-srv\\tmp\Output\sss.txt
не видит все равно
карма: 0

0
Ответов: 8938
Рейтинг: 824
#13: 2018-08-12 16:25:05 ЛС | профиль | цитата
Vadimluk1 писал(а):
не забудь дать права администратора!

А с этим как?
Всё_в_порядке.jpg

--- Добавлено в 2018-08-12 16:27:44

Что-то форум заглючил с тегами

Редактировалось 1 раз(а), последний 2018-08-12 16:27:44
карма: 19

0
Ответов: 632
Рейтинг: 4
#14: 2018-08-12 17:56:09 ЛС | профиль | цитата
Леонид писал(а):
http://i.mcgl.ru/tud9fI9HsA

У меня без прав администратора, создается, но скрыт от глаз, а с правами создается и виден.
карма: 0

0
Ответов: 9906
Рейтинг: 351
#15: 2018-08-13 00:07:17 ЛС | профиль | цитата
Stalevar писал(а):
По пробовал \\Lrfvod-srv\\tmp\Output\sss.txt

Попробуй \\\\Lrfvod-srv\\tmp\Output\sss.txt (хотя, должно работать и с тремя)
Если, конечно, сетевая папка у вас расшарена на запись (у меня, к примеру - нет, только на чтение).

"Не так как написано" у нас компилируется не только то, что перечислил Леонид, но и двойной слеш.
Он компилируется в одиночный.

--- Добавлено в 2018-08-13 00:34:14

Более подробно писал последний раз здесь

Редактировалось 6 раз(а), последний 2018-08-13 14:28:44
карма: 9

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)