Ĺadny brzuch
<_< Jak to można zrobic.A mianowicie zrobilem prymitywny program do wysylania maili(z autoryzacja na o2), oczywiscie z zalacznikami. Jak zrobic zeby wyslac zalacznik ktorego waga ma np: 30MB. Jak podzielic plik tak zeby program wyslal go na poczte w kawalkach np: po 5MB i spakowany???? Zastanawiam sie i nie moge tego rozpracowac. Prosze o pomoc!
to ci sie moze przydac http://www.swissdelp...ode.php?id=1075
Co do rozmiaru pliku...
function GetFileSize(const FileName: string): LongInt; var SearchRec: TSearchRec; begin try if (FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0) then Result := SearchRec.Size else Result := -1; finally SysUtils.FindClose(SearchRec); end; end;
Wynik w kb oczywiście :)
Co do kompresji... nie wiem, czy tak można, ale poszukaj parametrów dla WinRara czy innych aplikacji kompresujących... i przy pomocy np. ShellExecute otwórz packagera, który dzieli i/lub kompresuje dany plik...
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
to ci sie moze przydac http://www.swissdelp...ode.php?id=1075
Co do rozmiaru pliku...
function GetFileSize(const FileName: string): LongInt; var SearchRec: TSearchRec; begin try if (FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0) then Result := SearchRec.Size else Result := -1; finally SysUtils.FindClose(SearchRec); end; end;
Wynik w kb oczywiście :)
Co do kompresji... nie wiem, czy tak można, ale poszukaj parametrów dla WinRara czy innych aplikacji kompresujących... i przy pomocy np. ShellExecute otwórz packagera, który dzieli i/lub kompresuje dany plik...