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.
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.
Vastaukset 7
Vanhimmat
Siellä on s-merkki puolipisteen jälkeen.
IDE:n pitäisi näyttää tuollaiset helpot asiat punakynällä reaaliajassa.
Kiitos, poistin tuon s-merkin ja nyt toimii kuten pitää! :)
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.
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.
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.
Puolipiste puuttuu siitä loppuvaiheesta sulun perästä.