Pieni pätkä tekemästäni sovelluksesta:
procedure TForm1.Button3Click(Sender: TObject);
begin
polku := ' /home/XXXX ';
summat := ' >md5summa.txt';
komento := 'md5deep -r ';
fpSystem(komento+polku+summat);s
end;
Lazarus/FreePascal herjaa että unit1.pas(70,1) Error: Illegal expression
eli ihan kuin tuo end; olisi jotenkin väärin. Mutta tietääkseni tuon kuuluukin olla noin, eli mikä tuossa koodissa oikeasti on vialla? Nuo variablet on määritelty oikein eli ansistring-muotoon.
Mikä tässä koodissa vialla?
7
401
Vastaukset
- Anonyymi
Siellä on s-merkki puolipisteen jälkeen.
IDE:n pitäisi näyttää tuollaiset helpot asiat punakynällä reaaliajassa.- Anonyymi
Kiitos, poistin tuon s-merkin ja nyt toimii kuten pitää! :)
- Anonyymi
Voisi olla tehokkaampaa käyttää esim. seuraavaa kirjastoa:
https://github.com/ddablib/md5
-toisaalta jos laskettavia summia ei ole kovin paljon n. 10x menetys nopeudessa tuskin haittaa - tuo fpSystem-kutsu kun luo joka kerta uuden prosessin, mikä on melko hidasta. Ellen väärin muista, prosessiin avataan myös shell, joka vasta suorittaa annetun komennon. Itse md5-summan laskenta menee sen sijaan sekä ohjelmalla että kirjastolla yhtä sutjakkaasti.- Anonyymi
Voi olla, mutta fpSystem on ainoa toimiva keino, ainakin niistä mitä olen itse kokeillut.
- Anonyymi
Anonyymi kirjoitti:
Voi olla, mutta fpSystem on ainoa toimiva keino, ainakin niistä mitä olen itse kokeillut.
Ja lisään vielä että tarkoitus siis onkin nimenomaan käyttää shelliä ja ajaa siinä toista ohjelmaa, siksi käytän tuota fpSystem-käskyä. Olen kokeillut muitakin keinoja ajaa shellin kautta muita ohjelmia mutta en ole saanut niitä toimimaan oikein.
- Anonyymi
Mulla kanssa ongelma. Ensin se lähdekoodi:
-------------------------
unit md5summer2;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Unix;
var
tiedostot : ansistring;
implementation
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
ListBox1: TListBox;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
begin
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
fpSystem("md5sum -b " + tiedostot + " >>md5sums.md5")
end;
end.
--------------------------------
Sitten kääntäjän (FreePascal) virheilmoitukset:
Käännä projekti, Kohde: md5summer: Lopetuskoodi 1, Virheet: 2
md5summer2.pas(44,1) Error: Illegal expression
md5summer2.pas(44,11) Fatal: Syntax error, ";" expected but "identifier TFORM1" found
--
Eli mikä tuossa on väärin ja mitä pitäisi muuttaa jotta tuo toimisi, koko sovellus on vielä alkutekijöissään mutta kokeilin ajaa tuota testimielessä ja sain nuo virheilmoitukset.- Anonyymi
Puolipiste puuttuu siitä loppuvaiheesta sulun perästä.
Ketjusta on poistettu 1 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Hyvästi, mies
Tulen nyt tänne harvoin. Lakkasin unelmoimasta meistä. Päästin irti tästä meidän välisestä tilanteesta. Vaikka mitään ei272351- 791736
- 2221062
Hiihtäjälegenda Juha Mieto avautuu Farmin "leidien" käytöksestä - Tämä yllätti: "Me miehet oltiin.."
Juha Mieto on mukana Farmi Suomi: Revanssi -realityssä. Tsemppiä Farmille, Mietaa! Lue Juha Miedon haastattelu: https:18989Semmonen juttu, että..
..ikävä iski. Mietin kaikkea sitä, mitä sä antaisit mulle ja mitä mä antaisin sulle. Millasta meillä olisi yhdessä, kos28934Nuorempi mies, vanhempi nainen
Olen aivan sekaisin itseäni n. 20 vuotta vanhemmasta naisesta. En saa häntä mielestäni millään, vaikka olen yrittänyt. E61911Parisuhteettomuus- kyse valinnasta, kelpaamisesta vai siitä ettei osaa hakea
Parisuhteettomuus- kyse valinnasta, kelpaamisesta vai siitä ettei osaa hakea? Ikivanhan aloituksen provosoimana mietin m122891- 43829
Mietin vain sua
Kuinka saat pään ihan pyörälle. Oltaisiin hyviä yhdessä. Joku uskomaton kemia meidän välillä. Ulkopuolisista varmaan näy11771On ilta jälleen joten
Uusi iltaketju tähän. Mukavaa iltaa vaan. Susi se täällä aina yksin tallustaa. 😊🐺🌃🌙☕🧡118720