Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Вниз
Как связать дельфу и 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c
