Лидеры

procedure TForm1.Button1Click(Sender: TObject); var http: TIdHTTP; formData: TIdMultipartFormDataStream; begin http := TidHttp.Create(nil); try formData := TIdMultipartFormDataStream.Create; try formData.AddFile('SendFile', 'C:\test.txt', 'text/plain'); formData.AddFormField('action','upload_file'); http.Request.ContentType := 'multipart/form-data'; http.Post('http://test.ru/test.php',formData); finally formData.Free; end; finally http.Free; end; end; PHP: <? $files_uploaded = 1; foreach ($_FILES as $key => $value) if (move_uploaded_file($_FILES[$key]['tmp_name'], "./uploads/{$files_uploaded}.jpg")) $files_uploaded++; Папка "uploads" должна быть создана заранее или программно.

Добрый день всем тем несчастным кто пишет на фаирманки. Если ваше приложение (под андроид) делает больше, чем приложения из папки Samples, если оно содержит не только ButtonClick и Memo, то, наверняка, вы постоянно наблюдаете мою "любимую" ошибку при закрытии приложения: Segmentation fault(11). Если Вам надоело править исходники из папки {XE7}\Source, если ваше приложение ну никак не хочет полностью выгружаться и висит в фоновых процессах, покажу Вам свое решение данной, мягко говоря, проблемы. Подключаем к проекту приложенный .pas и в нужном месте кода(желательно на OnClose главной формы) юзаем процедуру KillMe. Теперь Ваше приложение всегда будет выгружаться из памяти, а также запускаться с 1-го раза. п.с. Если посмотреть исходники, то можно понять смысл названия топика. uVedroProcess.zip

Прочитайте, раз уж спрашиваетеhttp://rsdn.ru/article/Delphi/Delphi_7_06.xml