Procedure EnvoiFichierType(Fichier,Contenu: String; PriseClient: TidContext); VAR fs: TFileStream; BEGIN if FileExists(Fichier) then Begin try Fs := TFileStream.Create(Fichier,fmOpenRead,fmShareDenyNone); //Créer le flux priseClient.Connection.Socket.WriteLn('HTTP/1.1 200 OK'); priseClient.Connection.Socket.WriteLn('Content-type: '+Contenu); priseClient.Connection.Socket.WriteLn('Content-length: '+IntToStr(fs.Size)); priseClient.Connection.Socket.WriteLn(''); try try PriseClient.Connection.Socket.Write(Fs); //Ecrit le flux except MessageDlg('Erreur pendant l''envoi du fichier.', mtError, [mbOK], 0); end; finally FreeAndNil(Fs); //Libérer le flux end; finally end; end; END;
Fs := TFileStream.Create(Fichier,fmOpenRead,fmShareDenyNone); //Créer le flux
Fs := TFileStream.Create(Fichier,fmOpenRead or fmShareDenyNone); //Créer le flux