Deutsches Lazarusforum

Dort steht was anderes: TFPCustomHTTPClient .SimpleGet.
Das ist offenbar eine Klassenmethode, die kannst du genau so aufrufen, ohne etwas zu createn.

Wer lesen kann... Jetzt fehlt mir nur noch eine Möglichkeit die (bzw eine) MAC Adresse des PC auszulesen. Das funktioniert zwar mir LSUtils, aber ...

Guten Morgen in die Runde!

Kurz zur Umgebung: Windows 7 64bit, Lazarus 1.4.2 mit FPC 2.6.4.

Ich möchte per

mac:=FPHTTPClient.SimpleGet('https://irgendeineseitemitssl.de/eintextdokument.txt');
ShowMessage(mac);

Den Inhalt einer Textdatei in einen String schreiben. Dazu habe ich bei uses ...

So, das System läuft soweit. Die Quelle Yahoo gefällt mir im Momentan noch nicht (sehr ungenau) aber darum kümmere ich mich später. Was jetzt fehlt, ist eine automatische Aktualisierung. Kann ich eine Prozedur oder Funktion zeitgesteuert ablaufen lassen, also alle 30min oder so? Sowas habe ich ...

So... ich habe mich jetzt etwas anders orientiert. Meine Prozedur sieht so aus:

procedure TfMAIN.FormCreate(Sender: TObject);

var
weathertext:String;
begin
weathertext:=TFPCustomHTTPClient.SimpleGet('http://weather.tuxnet24.de/?id=GMXX0051'); //Greift sich die Daten uns scheibt sie in einein ...

Ich habe mal eine Unit geschrieben, die Daten von der API auf http://www.wetter.com/ abrufen kann. Die könnte ich dir gerne zur Verfügung stellen. Du musst dich dann bloß beim Developer-Programm auf der wetter.com anmelden und einen API-Key für deine Anwendung beantragen. Kostet auch nix ...

Moin!

Ich möchte in einem Mini-Programm mit ein paar simplen Icons das Wetter darstellen. Da meine Lazarus Programme noch nie in irgend einer Form auf auf das Internet zugegriffen haben, stehe ich am Anfang. Soweit vorweg. Ich suche also nach einer Möglichkeit, Wetter-Infos von einer Wetterwebsite ...

Was willst du denn eigentlich machen? Vielleicht geht das ja auch mit Bordmitteln. Eine anderes Programm abzuschießen, ist immer eine unsaubere Lösung, das wirst du spätestens merken, wenn nicht gespeicherte Änderungen verloren gehen.

Mein Programm öffnet eine Datei (eine Vorlage, Word Dokument ...

Vielleicht musst Du den anderen Prozess auch gar nicht beenden.

Als ich mal Word mit OLE verwendet habe, konnte ich irgendwo per Parameter angeben,
dass ich für meine Aktionen einen eigenen Prozess haben will.

Mein Problem ist, dass eventuell die Datei, in die ich speichern will, schon in Word ...

Wenn du über die COM-Schnittstelle arbeitest, kannst du darüber abfragen, ob Dateien geöffnet sind.
Hier hast du sowieso Zugriff auf das Excel-/Word-Anwendungsobjekt und kannst es darüber auch beenden.

Ich greife über OLE zu: http://wiki.lazarus.freepascal.org/WordAutomation/de

Guten Morgen!

Mein Programm kommuniziert mit Word und Excel. Deswegen ist es essentiell wichtig, dass keine Word-Dateien geöffnet sind, bevor ich einen Teilprozess starte.

Wie kann ich (unter Windows) feststellen, ob ein Programm / Prozess mit dem Name "WINWORD.EXE" gestartet wurde? Ich möchte dem ...

Ich hab über das "Problem" nochmal genau nachgedacht. Also wurde das am Ende so:

FolgeGelesen[line]:=TrimRight(FolgeGelesen[line]); //Alle nicht lesbaren Zeichen von Rechts entfernen
if length(FolgeGelesen[line])=0 then //String leer?
begin
FolgeGelesen.Delete(FolgeGelesen.count-1); //Dann ...

So... nun möchte ich einen leeren String löschen:

if length(FolgeGelesen[line])=0 then // also wenn die Länge null ist
begin
//ShowMessage('Line ' + inttostr(line) + ' muss weg.');
FolgeGelesen.Delete(line-1);
end;

Leider bekomme ich beim ausführen die Meldung "index out of Bounds". Wo liegt ...

Danke!

Ich wusste gar nicht, dass das auch mit einem String geht, habe immer nur einen Char genommen.

Eine andere Sache: Kann man mit einem Simplen befehl testen, ob in FolgeGelesen[line] ein string vorkommt? Also mehr als nur ein Buchstabe... Ich suche beispielsweise nach ';FOLD', bisher also immer mit mehreren Abfragen buchstabenweise durchgegangen, das scheint mir aber wenig intelligent...

Du musst eine Stringvariable benutzen, in die du die Zeile kopierst, bearbeitest und dann wieder zurück in die StringList schreibst:
s := FolgeGelesen[line];
Delete(s, positionS1, length(s));
FolgeGelesen[line] := s;

Okay, das geht auch. Habe mittlerweile durch Zufall eine andere Lösung gefunden ...