Send2FTP

[smallsmoker]

Hallo DP,
Wollte hier ein programm von mir vorstellen ich denke die Bilder und der Titel sind selbsterklärend
hier der Link zur Projektseite:
http://www.whitebyte.info/?page_id=186

http://www.jypd.de/wearestrange/Delp...small/0003.jpg http://www.jypd.de/wearestrange/Delp...small/0002.jpghttp://www.jypd.de/wearestrange/Delp...small/0001.jpg
Auf die Bilder klicken um eine vergößerte Version anzuzeigen
Screenshots sind leicht veraltet


Download Send2FTP
426 KB

Virustotal Scan

Hoffe das ihr verbesserungsvorschläge geben könnt.

Changelog:

Code:

-----------------------------------------------------------------------
v 1.00 Beta
--------------

v 1.01 Beta
--------------
 - Abort Button hinzugefügt

v 1.02 Beta
--------------
 - RC4 Verschlüsselung des Passworts hinzugefügt
 - struktur der ini datei geändert
 - save button bei advanced settings hinzugefügt

v 1.03 Beta
--------------
 - RC4 Verschlüsselung gegen eine andere Verschlüsselungsmethode getauscht die keine sonderzeichen verwendet so wird hoffentlich muhkuhs minus bug behoben
 - man muss bei copy to clipboard nicht mehr einen webhost eintragen wenn ftphost und webhost übereinstimmen, das gleiche gilt für open webhost
 - Bugs behoben die das freigeben von speicher betreffen
 - Sternchen wieder drinne :P
 - Option choose destionation folder mit history speichern unter advanced Settings

v 1.04 Beta
--------------
 - kompletter Syle wechsel der Einstellungen
 - mehrere Server unterstützt 
 - 2 settings dateien werden jetzt in einem settings ordner gespeichert
[b] - Siehe Screenshot ![/b]

v 1.05 Beta
--------------
 - überarbeitets aussehen
 - einige icons hinzugefügt
 - Bug beim schließen der upload form gefixt

v 1.06 Beta
--------------
 - überarbeitets aussehen (buttons & icons)
 - mehrere accounts auf dem gleichem ftp server
 - host kann jetzt wieder nach dem erstellen verändert werden
 - ordentliche lizenz hinzugefügt (dank an luckie)

v 1.07 Beta
--------------
 - zip komprimierung hinzugefügt

v 1.08 Beta
--------------
 - neue eigenschaft showinsendtolist
 - defdir wird automatisch zum in die combobox in der sende form beim ersten start

v 1.09 Beta
--------------
 - add to windows firewall hinzugefügt
 - design verbessert
 - vista manifest hinzugefügt (uac abfrage)
 - bugs behoben
 - status beim connecten wird angezeigt

v 1.0.10 Beta
--------------
 - kritischen bug behoben
 - versionsinfo hinzugefügt (danke an toms)

v 1.0.11 Beta
--------------
 - uac wird nur noch bei der konfiguration verlangt (uff das war schwer)
 - externe komprimierung kann genutzt werden

v 1.0.12 Beta
--------------
 - uac problem anders (besser) gelöst :) jetzt wieder ohne registry einträge

//Changelog Style wechsel...
____________________________________
************************************
Version 1.1.1 Beta
Datum: 31.08.2008
Changes:
*verbesster Style des Uploaders
*die external Compression wurde herausgenommen, aufgrund von mangelnder funktionalität
+Ordner werden hochgeladen
+mehrere Dateien/Ordner können auf einmal hochgeladen werden
*viele kleinere verbesserungen (datei größe, optische details, ...)
____________________________________
************************************
Version 1.1.2 Beta
Datum: 31.08.2008
Changes:
*Zusatz Informationen in der Upload Form sind ausblendbar
*einige kleinere Style verbesserungen (Rechtschreibung ,Tabreihenfolge, Filename wird mit MinimizeName gekürzt, etc.)
*Upload ist nun beendbar (Remote wird die nicht beendete datei gelöscht)
-Bug beim speichern der Directory-History in der Upload Form gefixt
-----------------------------------------------------------------------

Es werden keine registry einträge o.ä. angelegt nur eine settings.ini wird dort wo sich die anwendung befindet angelegt sowie dem link den der user im programm
hinzufüge und entfernen kann.

mit dem Download und der Benutzung der Anwendung stimmt ihr dieser Freeware-Lizenz zu.

mfg smallsmoker

[smallsmoker]

@_frank_: überhaupt keine idee was das soll also von mir kommt die fehlermeldung nich .. kannst du nochmal genau beschreiben wann dieser fehler aufgetreten ist ?

@Die Muhkuh: und ich war so stolz dsa ich nur eine anwendung habe also ich habe ne möglichkeit gefunden (ne von windows bereitgestellte) die anwendung nach einmaliger nachfrage ohne uac abfrage mit admin rechten zu starten €: klappt aber nicht

aber wozu brauch ich die überhaupt ich habe mal uac angestellt und mir nen test eingeschränkten user gemacht und da läuft alles wunderbar, ohne admin rechte !

€:außer beim firewall exeption hinzufügen

@toms: hab ich gemacht kommt dann in die nächste version
€: hilft leider nicht :/

mfg smallsmoker

[smallsmoker]

yeah problem gelöst
ich editiere hier später rein wie

[Die Muhkuh]

Zitat von smallsmoker:

yeah problem gelöst
ich editiere hier später rein wie

Ist diese Version schon online?

[smallsmoker]

nein gucke changelog

erst mal das angucken http://www.vs-support.com/tipps_tricks/uac.htm

also erklären will ich nichts aber guckt euch einfach mal den code an vieleicht hilfts ja jemandem:
das is der quellcode meines projekts

Delphi-Quellcode:

program Send2FTP;

uses
  sysutils,
  classes,
  Forms,
  windows,
  shellapi,
  usendto in 'usendto.pas' {Form1},
  usendoform in 'usendoform.pas' {Form2},
  ulizenz in 'ulizenz.pas' {Form3};


{$R *.res}
{$R starter.res}

procedure ShellExecAndWait(dateiname: string; Parameter: string);
var executeInfo: TShellExecuteInfo;
dw: DWORD;
begin
FillChar(executeInfo, SizeOf(executeInfo), 0);
with executeInfo do
begin
        cbSize := SizeOf(executeInfo);
        fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
        Wnd := GetActiveWindow();
        executeInfo.lpVerb := 'open';
        executeInfo.lpParameters := PChar(Parameter);
        lpFile := PChar(dateiname);
        nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@executeInfo) then
        dw := executeInfo.HProcess
else
begin
//        ShowMessage('Fehler: ' + SysErrorMessage(GetLastError));
        Exit;
end;
while WaitForSingleObject(executeInfo.hProcess, 50) <> WAIT_OBJECT_0 do
        Application.ProcessMessages;
CloseHandle(dw);
end;

var s:tresourcestream;
begin
  
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Send2FTP';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
    if paramcount < 1 then
    begin
      s := tresourcestream.Create(hInstance,'sdbfile',RT_RCDATA);
      try
      s.SaveToFile('send2ftpadmin.sdb');
      finally
      s.free;
      end;
      s := tresourcestream.Create(hInstance,'starter',RT_RCDATA);
      try
      s.SaveToFile('EditSend2FTPSettings.exe');
      ShellExecute(0,'open','EditSend2FTPSettings.exe',nil, nil, SW_HIDE);
      finally
      s.free;
      application.ShowMainForm := false;
      application.MainForm.Close;
      end;
    end
  else
  if not (paramstr(1) = 'editthesend2ftpsettings') then
    begin
    application.ShowMainForm := false;
    form2.Show;
    end;
  Application.Run;
  if paramstr(1) = 'editthesend2ftpsettings' then
  begin
  s := tresourcestream.Create(hInstance,'sdbfile',RT_RCDATA);
    try
    s.SaveToFile('send2ftpadmin.sdb');
    finally
    s.free;
    ShellExecAndWait('sdbinst','-q -u send2ftpadmin.sdb');
    deletefile('send2ftpadmin.sdb');
    end;
  end;
end.

qc vom starter

Delphi-Quellcode:

program EditSend2FTPSettings;

uses
  sysutils,
  classes,
  shellapi,
  windows;

procedure KillSelf();
begin 
  with TStringList.Create do try 
    Add(':Label1'); 
    Add('del "' + extractfilepath(Paramstr(0)) + 'send2ftpadmin.sdb' + '"');
    Add('del "' + Paramstr(0) + '"');
    Add('if Exist "' + Paramstr(0) + '" goto Label1');
    Add('if Exist "' + extractfilepath(Paramstr(0)) + 'send2ftpadmin.sdb' + '" goto Label1');
    Add('del "' + ExtractFilePath(Paramstr(0)) + 'name.bat"'); 
    SavetoFile(ExtractFilePath(Paramstr(0)) + 'name.bat'); 
  finally Free end; 
  //Ausführen 
  ShellExecute(0, 'open', PChar(ExtractFilePath(Paramstr(0)) +
    'name.bat'), nil, nil, SW_HIDE); 
end;

begin
  ShellExecute(0,'open','sdbinst','-q send2ftpadmin.sdb', nil, SW_HIDE);
  ShellExecute(0,'open','Send2FTP.exe','editthesend2ftpsettings', nil, SW_HIDE);
  KillSelf()
end.

dem starter muss man nun noch admin rechte z.B: hiermit beschaffen

€: jetzt will ich aber auch mal von euch gesagt haben das das ne gute idee war 8)

€2: da waren ne menge fehler drinne :/ alle draußen

[toms]

Anmerkung zu

Delphi-Quellcode:

Application.CreateForm(TForm2, Form2); 
Application.CreateForm(TForm3, Form3);

Lade die Form2 und Form3 dynamisch bei Bedarf.

[smallsmoker]

kenn ich nich aber ich leren gern dazu ich guck mich mal dazu um
mfg smallsmoker

[smallsmoker]

Version 1.0.11 ist nun verfügbar
änderungen siehe changelog
mfg smallsmoker

boa das war schwer

happy bugtracking

€toms: reicht es für diese dymische sache wenn ich einfach hinschreibe:

Delphi-Quellcode:

  if (paramstr(1) = 'editthesend2ftpsettings') or (paramcount < 1) then
  begin
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  end
  else
  Application.CreateForm(TForm3, Form3);

[toms]

Zitat von smallsmoker:

Version 1.0.11 ist nun verfügbar
änderungen siehe changelog
mfg smallsmoker

boa das war schwer

happy bugtracking

Das Programm startet unter WinXP SP2 nicht mehr. Gleich beim Start kommt

Zitat:

Send2FTP hat ein Problem festgestellt und muss beendet werden.

[smallsmoker]

und wieso klappt es dann bei mir :/

siehe anhang
toll hab den fehler gefunden
behebe ihn gerade

[toms]

Jetzt geht es seltsamerweise wieder. Das erste Mal hat's eine EditSend2FTPSettings.exe extrahiert, jetzt nicht mehr.?!?