Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

Как связать дельфу и WinRar   Найти похожие ветки 

← →
NightPrivat   (2003-02-26 08:16) [0]

В общемзадача такая - есть прога, пост-робот, которая шлёт письма с вложенным файлом немеренных размеров.
Хотелось бы узнать , как запаковать эот файл перед отправкой.
Вручную не потянет, так как он постоянно обновляется

Заранее секс , Night.

---

← →
NightPrivat   (2003-02-26 08:29) [1]

ЗЫ : Чуть не забыл!
Этот процесс не должен засорять монитор пользователя,
то есть быть полностью невидим...

---

← →
Calm ©   (2003-02-26 09:02) [2]

c:\<winrar dir>\rar.exe a myfile.dat myarchive.rar -ep1

А еще очень сильно помогает rar /?

---

← →
DOOMin   (2003-02-26 11:28) [3]

То что предлагает Calm как раз не будет невидимым и покажет консольное окно. А что обязятельно использовать RAR? Он же коммерческий. Насколько я знаю, существует dll, которая содержит паковщик и интерфейс к нему, но уверен, что это не бесплатно. Сходи на torry.net и просто скачай бесплатные компоненты дляч упаковки в zip или может еще в какой формат и пользуйся. Если хочешь не тормозить робот в момент упаковки, сделай просесс упаковки в отдельном потоке. Удачи

---

← →
Alexandr B.   (2003-02-26 13:34) [4]

Вот например не засоряет экран

procedure TForm1.Button1Click(Sender: TObject);
var si:STARTUPINFO;
pi:PROCESS_INFORMATION;
xc:cardinal;
begin
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
si.wShowWindow := SW_HIDE;
si.dwFlags := STARTF_USESHOWWINDOW;

CreateProcess(nil,
{$ifdef home}
PCHAR("rar32 a test.zip "+"C:\Video\nge\nge-01.viv")
{$else}
PCHAR("rar32 a test.zip "+Application.EXENAME)
{$endif}
,nil,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,si,pi);
CloseHandle(Pi.hThread);
with tanimate.Create(self) do
begin
Parent := self;
Align := alClient;
BringToFront;
CommonAVI := aviCopyFiles;
Active := True;
StopFrame := 34;
while WaitForSingleObject(Pi.hProcess, 10) = WAIT_TIMEOUT do
Application.ProcessMessages;
free;
end;
if GetExitCodeProcess(Pi.hProcess,xc) then
showMessage(inttostr(xc));
CloseHandle(Pi.hProcess);
end;

к стати NORMAL_PRIORITY_CLASS - показывает приоритет программы.

---

← →
REA ©   (2003-02-26 13:59) [5]

А зачем слать письма? Может лучше выложить на FTP?

---

← →
Calm ©   (2003-02-26 14:44) [6]

> То что предлагает Calm как раз не будет невидимым и покажет
> консольное окно.

Извиняюсь, проглядел, что прога должная быть невидимой.

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.017 c