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


Редактировалось 12 раз(а), последний 2024-03-29 00:13:17
карма: 0

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

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


Редактировалось 12 раз(а), последний 2024-03-29 00:13:17
карма: 0

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

code_29564.txt
карма: 1

0
файлы: 1code_29564.txt [277B] [1180]
Ответов: 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
Ответов: 178
Рейтинг: 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
Ответов: 178
Рейтинг: 14
#8: 2018-08-09 15:28:05 ЛС | профиль | цитата
Vadimluk1

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

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

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

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

0
Ответов: 8886
Рейтинг: 823
#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
Сообщение
...
Прикрепленные файлы
(файлы не залиты)