Вот маленький кодик Посмотрите пожайлуста может чем поможете! Там надо зделать чтоб он путь считывал с едит1 куда копировать! Я додумался как сделать чтоб он считывал от куда копировать но куда чтото с этим туго !!
Зарания спасибо!
procedure TForm1.Button2Click(Sender: TObject);
var
Fo : TSHFileOpStruct;
buffer : array[0..4096] of char;
p : pchar;
begin
FillChar(Buffer, sizeof(Buffer), #0);
копирования
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY; //Действие
Fo.pFrom := PChar(Edit1.text);//@buffer ; //Источник<---- вот то что надо было сделать
Fo.pTo := 'd:\B' ; // показываем куда копируем <--- тут аналогичная ситуация "но оно не работает"
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or
(Fo.fAnyOperationsAborted <> false)) then
ShowMessage('помогите!');

end;



procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
edit1.Text:=OpenDialog1.filename;

end;

end.

...
Fo.pFrom := PChar(Edit1.text+#0);
...

спасибо что ты с man2002ua Сразу помогли! Как прочитать фаил запушенный другим преложением. Но вот с копированием файлов чтото не получается!

Люди помогите пожайлуста! как это сделать я уже вымучился! Зарания Спасибо!

Чего #0 не спасло?

Скопируй так, что ли. А то разбираться неохота: всегда этой процедурой копировал. Хотя твой вариант работает, наверное, быстрее.

Код

procedure MyCopyFile (S1, S2 : String); var FIn, FOut : File;    L, N, C   : LongInt;    Buf       : array [1..20000] of Byte;   function Min (X, Y : LongInt) : LongInt;   begin      if X < Y      then Min := X      else Min := Y   end; begin   AssignFile (FIn, S1);   AssignFile (FOut, S2);   ReSet (FIn, 1);   ReWrite (FOut, 1);   L := FileSize (FIn);   N := 0;   repeat      C := Min (L-N, 20000);      BlockRead (FIn, Buf, C);      BlockWrite (FOut, Buf, C);      Inc (N, C);   until N >= L;   CloseFile (FIn);   CloseFile (FOut); end; {=======}

Конешно спасиба за исходник но мне именно нужен чтоб тот код работал!

Должен заметить, что твой код работает у меня под Windows 2000 прекрасно (Delphi 6).

Не понял только, зачем используешь FillChar.

2Song: А разве PChar сам не справляется с задачей добавления нолика в конец? По-моему, он это и делает...

Это сообщение отредактировал(а) dm9 - 12.6.2003, 11:04

Что-то я перечитал твой топик и ни ничего не понял

У тебя какие проблемы? Как сделать, чтобы в Edit1 был путь к источнику, а в Edit2 - куда копировать?

Или проблемы с самим копированием?

Если первое, то используй TOpenDialog и TSaveDialog:

Код

procedure TForm1.Button1Click(Sender: TObject); var   Fo : TSHFileOpStruct; begin   Fo.Wnd := Handle;   Fo.wFunc := FO_COPY;   Fo.pFrom := PChar(Edit1.Text);   Fo.pTo := PChar(Edit2.Text);   if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false))   then ShowMessage('Error'); end; procedure TForm1.Button2Click(Sender: TObject); begin   if OpenDialog1.Execute   then Edit1.Text := OpenDialog1.FileName; end; procedure TForm1.Button3Click(Sender: TObject); begin   if SaveDialog1.Execute   then Edit2.Text := SaveDialog1.FileName; end;

Если второе, то там всё работает...

Предложение: чтобы тебя понимали, пиши точнее, что надо, И С ПУНКТУАЦИЕЙ НОРМАЛЬНОЙ И С ОРФОГРАФИЕЙ, блин...

Модераторам: разместите, что ли, учебник русского языка в прикрепленных темах... хотя это не поможет.

Это сообщение отредактировал(а) dm9 - 12.6.2003, 11:18

Еще маленький вопрос а можно сделать чтоб Файл отсылался по IP адресам Допустим 10.1.1.0 .10.1.1.1. 10.1.1.2 Вот в таком порядки!?
Зарания спасибо!

Конешно спасибо dm9 Но твой код опять не работает копировать копирует но расширения файла не подписывает!

Цитата(lider07 @ 12.6.2003, 12:46)

Конешно спасибо dm9 Но твой код опять не работает копировать копирует но расширения файла не подписывает!

Я тоже тебя нэ понимаю

Что у тебя не работает? у меня твой код работает спокойно
Файл копирует, и расширение подписывает т.е. то имя которое ему я задал (edit2.txt ;)

Цитата

Fo.pTo := 'd:\B' ; // показываем куда копируем <--- тут аналогичная ситуация "но оно не работает"

а здесь у меня нет проблемы... проверь путь

вот он

Код

procedure TForm1.Button2Click(Sender: TObject); var Fo : TSHFileOpStruct; buffer : array[0..4096] of char; p : pchar; begin FillChar(Buffer, sizeof(Buffer), #0); FillChar(Fo, sizeof(Fo), #0); Fo.Wnd := Handle; Fo.wFunc := FO_COPY; Fo.pFrom := PChar(Edit1.text); Fo.pTo := PChar(Edit2.Text); Fo.fFlags := 0; if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('Mist!'); end; procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.Execute; edit1.Text:=OpenDialog1.filename; end; end.

Цитата

Fo.pTo := 'd:\B' ; // показываем куда копируем <--- тут аналогичная ситуация "но оно не работает"

теперь

Цитата

Fo.pTo := PChar('d:\B') ; // показываем куда копируем <--- тут аналогичная ситуация "но оно не работает"

и что все равно не работает?

Цитата

Еще маленький вопрос а можно сделать чтоб Файл отсылался по IP адресам Допустим 10.1.1.0 .10.1.1.1. 10.1.1.2 Вот в таком порядки!? Зарания спасибо!

Для генерирования последовательности IP-адресов делай так:

function GenerateNextIP(OldIP: string): string;
var
x,y: integer;
NewIP,s: string;
begin
y:=0;
for x:=1 to length(OldIP) do
begin
if OldIP[x]='.' then inc(y);
if y=3
then break;
NewIP:=NewIP+OldIP[x];
end;
s:=copy(OldIP,x+1,length(OldIP)-(x-1));
try
x:=strtoint(s);
except
result:='';
end;
inc(x);
result:=NewIP+'.'+inttostr(x);
end;

Не все это у меня тут глюк был теперь работает!! А можно зделать чтоб сам занасил Ip арес и путь куда там копировать??

2Monty
Fo.pTo := PChar('d:\B') ;

Компилятор сам в этом случае всё сделает. Не нужен PChar

Люди так что там насчет отправки по ip адресам?
некто в это помочь не может*?*
Зарания спасибо!

Да ты прикольный парень. Если бы так можно было, за тебя бы уже давно всю программу у тебя на компе сделали, так как в этом случае не было бы никакой системы безопасности.
Как вариант, предлагаю, по ИП узнать сетевое имя машины, замэпить диск и перекачать файл обычным CopyFile()

Так есть проблема машин 30 штук и че все диски подключать?

А вот с ытими функциями можно копировать по Ip адресам? (SDK) NetUserSetInfo и NetUserChangePassword ; -)

Если есть админские права, то можешь зайти на чужой диск так: \\Computer\C$\WINNT\...

dm9, если это NT платформа...

Не спорю. Это просто один из вариантов.

dm9, для любой винды можно так же, только вместо c$ - имя шары (если есть к ней права). Почему на NT появились такие прикольные $шары - для меня это самый интерестный вопрос.

Интереснее, что они не отключаются стандартными средствами, ну да это уже оффтоп...

вы вот спорите а нет бы исходник дать!!! )

Ищем, о великий, ищем! Не сердись...

Цитата

Ищем, о великий, ищем! Не сердись...

Пока вы "ИЩЕТЕ" У меня уже прога работает!