Send2FTP

[toms]

Du brauchst nur die Version Info zu aktivieren und diese kannst du dann in der Applikation anzeigen.

[smallsmoker]

okay überredet
also das im compiler kenne ich aber gibt es eine einfach anweisung ala label1.caption := readversioninfo(application.exename) oder so ?

[toms]

Zitat von smallsmoker:

okay überredet
also das im compiler kenne ich aber gibt es eine einfach anweisung ala label1.caption := readversioninfo(application.exename) oder so ?

Delphi-Quellcode:

var
  V1, V2, V3, V4: Word;

  GetBuildInfo(ParamStr(0), V1, V2, V3, V4);
  Label1.Caption := Format('Version %u.%u.%u.%u', [V1, V2, V3, V4]);

Delphi-Quellcode:

function GetBuildInfo(ParamStr: string; var V1, V2, V3, V4: Word): Boolean;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  Result := False;
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr), Dummy);
  if VerInfoSize = 0 then
  begin
    Dummy := GetLastError;
  end; {if}
  GetMem(VerInfo, VerInfoSize);
  try
    GetFileVersionInfo(PChar(ParamStr), 0, VerInfoSize, VerInfo);
    VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
    with VerValue^ do
    begin
      V1 := dwFileVersionMS shr 16;
      V2 := dwFileVersionMS and $FFFF;
      V3 := dwFileVersionLS shr 16;
      V4 := dwFileVersionLS and $FFFF;
    end;
    Result := True;
  finally
    FreeMem(VerInfo, VerInfoSize);
  end;
end;

[smallsmoker]

wow das nenn ich service danke
also is natürlich drinne.
damit ist version 1.0.10 draußen
mfg smallsmoker

€: lol ich bin son nap ich mache die ganze zeit das tool aber mache bis vor 5 min immer noch den ftp manager auf und wechsle immer wieder ins selbe verzeichnis um die neueste version hochzuladen anstatt mein tool zu benutzen xD

[smallsmoker]

habe noch ne design frage soll ich die controls die laut den aktuellen einstellungen bsp.: choose sendto dir aber nich choose to compress wie jetzt unsichtbar machen und höhe
der form und der anderen controls anpassen oder soll ich sie einfach disablen was sauberer wäre ?

[toms]

Zitat von smallsmoker:

habe noch ne design frage soll ich die controls die laut den aktuellen einstellungen bsp.: choose sendto dir aber nich choose to compress wie jetzt unsichtbar machen und höhe
der form und der anderen controls anpassen oder soll ich sie einfach disablen was sauberer wäre ?

Von mir aus können die Controls ausgeblendet werden.

PS: Die Form ist noch maximierbar. Solltest im OI BorderStyle.BiMaximize auf False setzen.

[smallsmoker]

Zitat:

Von mir aus können die Controls ausgeblendet werden.

sieht ja auch besser aus das problem ist nur auf nem pc mit ner anderen schriftgröße (dpi dingens) liegen die buttons übereinander und kreuz und quer auf der form rum ..
(und es macht mehr arbeit dann was hinzuzufügen aber ich lass es erst mal so)

Zitat:

PS: Die Form ist noch maximierbar. Solltest im OI BorderStyle.BiMaximize auf False setzen.

mach ich bei der nächsten version

[toms]

Bei mir flickert noch das Label "Upload Speed..." während des Uploads.
Setze mal DoubleBuffered der TGroupbox auf True

[Die Muhkuh]

Hi,

ich weiß nicht, ob es möglich ist (bzw. es ist möglich und wenn Du schön mit Klassen arbeitest auch keine große Mehrarbeit), aber es wäre sehr toll, wenn der uploadende Teil in ein extra Programm gemacht werden könnte, weil das ja auch ohne UAC funktioniert. Ich hab doch öfters mal fix was zum Hochladen (gerade wenn ich kleine Bugs in Skripten fixxe) und wenn da jedesmal die UAC anspringt, ist es recht störend.

[_frank_]

ich bekomme eine Fehlermeldung mit der ich zu der späten Stunde nicht mehr wirklich viel anfangen kann:

Code:

---------------------------
Send2FTP
---------------------------
In der Endpunktzuordnung sind keine weiteren Endpunkte verfügbar.
---------------------------
OK   
---------------------------

ich hab nur gestartet und mal die checkboxen auf dem 2. Tabsheet bisschen ein und ausgeschaltet...

(XP Pro SP2)

Gruß Frank