kann man diesen Source irgendwie in Delphi konvertieren ?
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
| #!/bin/bash
APOD_DIR=/home/mpbailey/apod_images
if [ "$1" = "" ]; then date=$(date +'%y%m%d') else date=$1 fi
img=$(curl --silent http://antwrp.gsfc.nasa.gov/apod/ap$date.html \ | grep 'a href=\"image' \ | sed "s/^.*\"\(image\/[^\"]*\)\".*$/http:\/\/antwrp.gsfc.nasa.gov\/apod\//") dest=$APOD_DIR/apod_$date.$(echo $img | sed "s/.*\.\(.*\)$//") curl --silent $img > $dest gconftool-2 -t string -s /desktop/gnome/background/picture_filename $dest |
wäre nett wenn mir jemand unter die Arme greifen kann!
mfg
Martin
Moderiert von
raziel: Code-Tags hinzugefügt