Guten Abend liebe DP User,
ich habe mal wieder ein Problem ops:
Und zwar geht es sich um folgendes:
Ich will für meinen kleinen FIleHoster (nach mehrfachem Wunsch der User) ein Uploadtool schreiben.
Bisher ging es auch gut voran, nur jetzt beim wichtigstem komme ich nicht weiter und zwar beim Upload.
Ich würde mich riesig freuen wenn ihr mir ein bisschen Helfen könntet.
Hier der bisherige Delphi Code:
Und hier noch meine upload.php:
VIELEN DANK IM VORAUS!
ich habe mal wieder ein Problem ops:
Und zwar geht es sich um folgendes:
Ich will für meinen kleinen FIleHoster (nach mehrfachem Wunsch der User) ein Uploadtool schreiben.
Bisher ging es auch gut voran, nur jetzt beim wichtigstem komme ich nicht weiter und zwar beim Upload.
Ich würde mich riesig freuen wenn ihr mir ein bisschen Helfen könntet.
Hier der bisherige Delphi Code:
Code:
unit UT; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; type TForm1 = class(TForm) GroupBox1: TGroupBox; LbDateien: TListBox; BtAddFile: TButton; BtDeletFile: TButton; Button1: TButton; OpenDialog1: TOpenDialog; GroupBox2: TGroupBox; StaticText1: TStaticText; LblSpeed: TLabel; ProgressBar1: TProgressBar; GroupBox3: TGroupBox; MemLinks: TMemo; IdHTTP1: TIdHTTP; procedure BtAddFileClick(Sender: TObject); procedure BtDeletFileClick(Sender: TObject); procedure IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer); private { Private-Deklarationen } public anzahl_listbox:integer; { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BtAddFileClick(Sender: TObject); begin opendialog1.Execute; anzahl_listbox := LbDateien.Items.Count; LbDateien.Items[anzahl_listbox] := opendialog1.FileName; anzahl_listbox := LbDateien.Items.Count; end; procedure TForm1.BtDeletFileClick(Sender: TObject); begin LbDateien.DeleteSelected; end; procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer); Var S: String; TotalTime: TDateTime; H, M, Sec, MS: Word; DLTime: Double; STime: TDateTime; AverageSpeed: Double; begin ProgressBar1.Max := AWorkCount; ProgressBar1.Position := 0; Application.ProcessMessages; TotalTime := Now - STime; DecodeTime(TotalTime, H, M, Sec, MS); Sec := Sec + M * 60 + H * 3600; DLTime := Sec + MS / 1000; if DLTime > 0 then AverageSpeed := (AWorkCount / 1024) / DLTime; S := FormatFloat('0.00 KB/s', AverageSpeed); case AWorkMode of wmWrite : LblSpeed.Caption := 'Uploade speed ' + S; end; ProgressBar1.Position := AWorkCount; Form1.ProgressBar1.Refresh; end; end.
Und hier noch meine upload.php:
PHP Code:
<?php
include("./config.php");
include("./header.php");
include("./lang/$language.php");
$junk = array('.' , ',' , '/' , '\\' , '`' , ';' , '[' , ']' , '-', "'", '*', '&', '^', '%', '$', '@', '!', '~', '+', '(', ')', '|', '{', '}', ' ', '?', ':', '"', '=', "<", ">", " &");
$multi = array('__', '___', '____', '_____', '______');
$filename = $_FILES['upfile']['name'];
$filename = str_replace("'",'',"$filename");
$filename = str_replace("&",'',"$filename");
$filename = stripslashes("$filename");
$filesize = $_FILES['upfile']['size'];
$fancyurl=rand('1','999');
$rand2=("$fancyurl$filename");
$m=$shourturl;
if ($m=="true")
$short= "";
else
$short= "download.php?file=";
$bans=file("./secure/bans.mfh");
foreach($bans as $line)
{
if ($line==$rand2."\n"){
?> <center><table style="margin-top:0px;width:741px;height:400px;"><tr><td style="border:1px #AAAAAA solid;height:100%;background-color:#FFFFFF;padding:20px;text-align:left;" valign=top>
<?
echo "$lang[noallow]";
?></center></td></tr></table><p style="margin:3px;text-align:center"><?
include("./footer.php");
die();
}
if ($line==$_SERVER['REMOTE_ADDR']."\n"){
?><center><table style="margin-top:0px;width:741px;height:400px;"><tr><td style="border:1px #AAAAAA solid;height:100%;background-color:#FFFFFF;padding:20px;text-align:left;" valign=top>
<? echo "$lang[nallow]";
?></center></td></tr></table><p style="margin:3px;text-align:center"><?
include("./footer.php");
die();
}
}
if(isset($allowedtypes)){
$allowed = 0;
foreach($allowedtypes as $ext) {
if(substr($filename, (0 - (strlen($ext)+1) )) == ".".$ext)
$allowed = 1;
}
if($allowed==0) {
?><center><table style="margin-top:0px;width:741px;height:400px;"><tr><td style="border:1px #AAAAAA solid;height:100%;background-color:#FFFFFF;padding:20px;text-align:left;" valign=top><?
echo "$lang[itype]";
?></center></td></tr></table><p style="margin:3px;text-align:center"><?
include("./footer.php");
die();
}
}
if(isset($categorylist)){
$validcat = 0;
foreach($categories as $cat) {
if($_POST['category']==$cat || $_POST['category'] = ""){ $validcat = 1; }
}
if($validcat==0) {
?><center><table style="margin-top:0px;width:741px;height:400px;"><tr><td style="border:1px #AAAAAA solid;height:100%;background-color:#FFFFFF;padding:20px;text-align:left;" valign=top><?
echo "$lang[icat]";
?></center></td></tr></table><p style="margin:3px;text-align:center"><?
include("./footer.php");
die();
}
$cat = $_POST['category'];
} else { $cat = ""; }
if($filesize==0) {
?><center><table style="margin-top:0px;width:741px;height:400px;"><tr><td style="border:1px #AAAAAA solid;height:100%;background-color:#FFFFFF;padding:20px;text-align:left;" valign=top><?
echo "$lang[dpick]";
?></center></td></tr></table><p style="margin:3px;text-align:center"><?
include("./footer.php");
die();
}
$filesize = $filesize / 1048576;
if($filesize > $maxfilesize) {
?><center><table style="margin-top:0px;width:741px;height:400px;"><tr><td style="border:1px #AAAAAA solid;height:100%;background-color:#FFFFFF;padding:20px;text-align:left;" valign=top><?
echo "$lang[tlarge]";
?></center></td></tr></table><p style="margin:3px;text-align:center"><?
include("./footer.php");
die();
}
$userip = $_SERVER['REMOTE_ADDR'];
$time = time();
if($filesize > $nolimitsize)
{
$newfile = "./uploader/".$userip.".mfh";
$f=fopen($newfile, "w");
fwrite ($f,$userip."|".$time."|");
fclose($f);
chmod($newfile,0777);
}
$passkey = rand(100000, 999999);
if($emailoption && isset($_POST['myemail']) && $_POST['myemail']!="") {
$uploadmsg = "$lang[ufile] (".$filename.") $lang[wup].\n ". $lang[udownfile] . ":" . $scripturl . "$short" . $rand2 . "\n ". $lang[udeletefile] . ":" . $scripturl . "$short" . $rand2 . "&del=" . $passkey . "&ignore=" . "\n $lang[thank]";
mail($_POST['myemail'],"Your Uploaded File",$uploadmsg,"From: ". $email ."\n");
}
if($passwordoption && isset($_POST['pprotect'])) {
$passwerd = md5($_POST['pprotect']);
} else { $passwerd = md5(""); }
if($descriptionoption && isset($_POST['descr'])) {
$description = strip_tags($_POST['descr']);
} else { $description = ""; }
$filelist = fopen("./files/".$rand2.".mfh","w");
fwrite($filelist, $rand2 ."|". basename($_FILES['upfile']['name']) ."|". $passkey ."|". $userip ."|". $time."|0|".$description."|".$passwerd."|".$cat."|\n");
$movefile = "./storage/" . $rand2;
move_uploaded_file($_FILES['upfile']['tmp_name'], $movefile);
?>
<center><table style="margin-top:0px;width:741px;height:400px;"><tr><td style="border:1px #AAAAAA solid;height:100%;background-color:#FFFFFF;padding:20px;text-align:left;" valign=top>
<?
include("./ads.php");
echo "<center><b>Ihre Datei wurde erfolgreich hochgeladen!<br/></b><br/><br /><br /></center>";
echo "<center><b>Download Link:<br/></b></br> <textarea name='textarea' cols='65' wrap='soft' rows='1'>". $scripturl . "$short" . $rand2 . "</textarea><br /><br /></center>";
echo "<center><b>BB Code:<br/></b><br><textarea name='textarea' cols='65' wrap='soft' rows='2'>[url=". $scripturl . "" . $rand2 . "]$compname Download Link[/url]</textarea><br /><br /></center>";
echo "<center><b>HTML Code:<br/></b><br><textarea name='textarea' cols='65' wrap='soft' rows='2'><a href=". $scripturl . "" . $rand2 . ">$compname Download Link</a></textarea><br /><br /></center>";
echo "<center><b>Um die Datei zu löschen nutzen Sie folgenden Link:<br/></b> </br><textarea name='textarea' cols='65' wrap='soft' rows='2'>" . $scripturl . "download.php?file=" . $rand2 . "&del=" . $passkey . "</textarea><br /><br /></center>";
echo "<center><b>Bitte merken Sie sich diese Links!</b></center>";
?><p>
<?
include("./bottomads.php");
?>
</td></tr></table></center>
<?
include("./footer.php");
?>