Anonymní profil Karel.V – Programujte.com

Dobrý den.
Mam doma Raspberry s připojeným expandérem MCP23017 a zkouším ovládat jeho GPO piny.

přes terminal jsem to dal a funguje  sudo i2cset -y 1 0x20 0x00 0x00
Stejným způsobem to jde ovládat i přes sh skript.

I v PHP to funguje   system ('sudo i2cset -y -m 0x01 1 0x20 0x12 0x00');

Rad bych to chtěl zprovoznít i přes Lazarus.

Neví někdo jak na to?

V Delphi i Lazarus umim ale ne pod linuxem.

Jsou to však systemove přikazy, tak by měli jit nějjak spustít i přes Lazarus.

Zdar všem.
Najde se tu někdo, kdo se vyzná v tom programu?

http://www.ispyconnect.com/

Poradí někdo?
Proč mi to v nastavení funguje a přes controler ne?

Ten tištak je tu.

Nejsem sám kdo se pokoušel dostat tento tistak vice krát na papir a neuspěl.

Vždy je velikost vitiskleho jiná než orginal.
http://leteckaposta.cz/525130235

Sesi  nahoře piše že použiva 1200 DPI

forbidden   1440 dpi

http://www.ebastlirna.cz/modules.php?name=Forums&file=viewtopic&p=669463#669463

Dotaz na ty zkušenější.

Jak je to s tým DPI ?

Ten kdo mi dal Eagle a ukázal mi jak na to, mi říkal, že to ukládá  do souboru s nastavením 1200 DPI.

Tedy to dělám tak i já.

Tištaky dělám nažehlováním.

Myslel jsem si, že čím víc DPI, tím víc toneru a tím lepší kvalita při přežehlování.

Nedávno jsem čet že A4 má stejnák jen 600 X 600 DPI.

Tak to mně také napadlo.

Vysledek stejný.

Je to o par milinetru větší.

Tento postup jsem zkoušel i přes PhotoFiltre Studio X a i přes Photoshop.

Zdavím.
Poradíte.
Mam předlohu tíštaku přes Eagle ve formátu PNG s nastavením 1200 DPI.
Předloha je 5 X 3,5 cm
Když ten můj soubor jenom otevřu a vytisknu, je to ok.
Mužu ho 100 X otevřít ve Photoshopu, PhotoFiltre Studiu, HyperSnap, GIMP a upravovat.
Mazat, malovat, ukladat, atd.
Vždy je výsledek OK a pasuje to.

Když však vytvořil novy papír 28 x 20 cm a 1200 DPI
A pak klik pravým a sobor - Otevřít jako vrstvu.
Ukážu mu svůj soubor PNG a on ji přidá jako vrtvu.
Když to pak vytisknu, je to o par milimetru větší.
Proč?

Děla to ve všech výše vyjmenovaních programech.

No jelikož všichni  programátoři, kteří by byli ochotní pomoct, tady vymřelí.

Udělal jsem to po svém.

Při spuštění stránky jsou gombiky průhledné.

Načtu ty data s registru přímo na této stránce v PHP.

Pak si tyto data s PHP vytáhnu v JS a vykreslím gombiky.

Tím vykryjí tu 2 sekundovou mezeru v setInterval

No a funkcí setInterval jsem nechal tak, jen jsem přidal podmínku IF.
Pokud se vrátí prázdny řetězec, tak nic nepřekresluje.
I když to není možná profí řešení, svou úlohu to splní.
 

Dik všem za ochotu a snahu pomoct.

Tak jsem zkusíl ten alert(registr) v tom mém a fakt při prvním průchodu vrací prazdný řetězec

#4 peter
Successful Response (should be blank):
10111111
Error Response:

alert take vyhodi 10111111
 

#2 peter
No těch červených jsem se už zbavil.

Tytvořil jsem další GIF, úplně prázdný s pruhlednym pozadím    .

Po te se spusti funkce v setInterval, ktera to zmeni na modre, protoze vsechny GPA jsou rovny nule v prvnim nacti.php. A ve 2s se zmeni jinak, pac se zmeni nacti.php.

Toto nechapu?

Když se spustí funkce, tak postupuje od vrchu ne?

Teda první stahné ten soubor.

A pak podle výsledku překreslí ty gombiky,ne?

Tudiž již při prvním pruchodu by měli byt data načtena?

Zdravím.

Poradíe kde je problém?

Fungovat to gunguje jak má.

První se mi však na ploše vykreslí červené gombiky.

Po vteříně se znění všechny na modre.

a pak to až začne spravně fungovat,

<script src="http://code.jquery.com/jquery-1.10.2.js"></script>
<script type="text/javascript">
setInterval(function()
{
 $("#StazenaData").load('NactiData.php');
 var registr = $("#StazenaData").html(); 

var GPA0 = registr.charAt(7);
var GPA1 = registr.charAt(6);
var GPA2 = registr.charAt(5);
var GPA3 = registr.charAt(4);
var GPA4 = registr.charAt(3);
var GPA5 = registr.charAt(2);
var GPA6 = registr.charAt(1);
var GPA7 = registr.charAt(0);

 
if(GPA0 == 0){document.getElementById("vstup_GPA0").src = "button/modry.gif";
}
else{document.getElementById("vstup_GPA0").src = "button/cerveny.gif";
}


if(GPA1 == 0){document.getElementById("vstup_GPA1").src = "button/modry.gif";
}
else{document.getElementById("vstup_GPA1").src = "button/cerveny.gif";
}

if(GPA2 == 0){document.getElementById("vstup_GPA2").src = "button/modry.gif";
}
else{document.getElementById("vstup_GPA2").src = "button/cerveny.gif";
}

if(GPA3 == 0){document.getElementById("vstup_GPA3").src = "button/modry.gif";
}
else{document.getElementById("vstup_GPA3").src = "button/cerveny.gif";
}

if(GPA4 == 0){document.getElementById("vstup_GPA4").src = "button/modry.gif";
}
else{document.getElementById("vstup_GPA4").src = "button/cerveny.gif";
}

if(GPA5 == 0){document.getElementById("vstup_GPA5").src = "button/modry.gif";
}
else{document.getElementById("vstup_GPA5").src = "button/cerveny.gif";
}

if(GPA6 == 0){document.getElementById("vstup_GPA6").src = "button/modry.gif";
}
else{document.getElementById("vstup_GPA6").src = "button/cerveny.gif";
}

if(GPA7 == 0){document.getElementById("vstup_GPA7").src = "button/modry.gif";
}
else{document.getElementById("vstup_GPA7").src = "button/cerveny.gif";
}
}, 1000);

</script>

<body>
<div style="width: 800px; margin-left: auto; margin-right: auto;">
<div id="wb_PhotoGallery1" style="margin:0 auto;padding:0;position:absolute;top:80px;width:747px;height:96px;text-align:left;z-index:1;">
<table style="width:100%" border="0" cellpadding="0" cellspacing="3" id="PhotoGallery1">
   <tr>
     <img id="vstup_GPA7"src="button/cerveny.gif" width="90" height="90">
     <img id="vstup_GPA6"src="button/cerveny.gif" width="90" height="90">
     <img id="vstup_GPA5"src="button/cerveny.gif" width="90" height="90">
     <img id="vstup_GPA4"src="button/cerveny.gif" width="90" height="90">
     <img id="vstup_GPA3"src="button/cerveny.gif" width="90" height="90">
     <img id="vstup_GPA2"src="button/cerveny.gif" width="90" height="90">
     <img id="vstup_GPA1"src="button/cerveny.gif" width="90" height="90">
     <img id="vstup_GPA0"src="button/cerveny.gif" width="90" height="90">
  </tr>            
</div>

<div id="StazenaData" style="position:absolute;left:10px;top:181px;width:250px;height:16px;z-index:0;text-align:left;"></div>
</body>
</html>

http://jquery-navod.cz/kategorie-ajax/9-ajax

Tak tady je to pro uplné lamy jako já   

No nějak to nechapu,to bude tim že je patulek   

Mam soubor Nacti.php

V něm je.

<?php
$register_GPA = `sudo i2cget -y 1 0x20 0x13`;
?>

Ted ho chcí spustít přes ten jqeury load

$("#div1").load("/Nacti.php");

Ale furt nemužu pochopít jak dostanu tu ziskanou hodnotu
$register_GP do toho druheho PHP
 

No abch se přiznal, mam s toho v palicí jak po flamu   

#45 KIIV
echo $register_GPA;

Tak to jsem už zkoušel mezi PHP a JS.

Netušil jsem že to jde i mezi dvěma skripty.

Zas o kousek dale   

Trochu nechapu to pin=1.
Spustím script.php.
Vněm bude.  $register_GPA = `sudo i2cget -y 1 0x20 0x13`;
Jak teda tu ziskanou hodmotu předam?

#41 KIIV
Takže pokud to dobře chapu, tak přes jquery si zavolam PHP skript, ktery tu hodnotu načte a uloží do textaku.

A pak si ho načtu.  $("#div1").load("info.txt");

Zdravím. 

Poradíte ještě s jediným problémem.

Takto v PHP načtu obsah registru
$register_GPA = `sudo i2cget -y 1 0x20 0x13`;

Jak však na to.

Určítě tu zas uslyším jquery   

Ale nějak to nefunguje.

<!DOCTYPE html>
<html>
<head>
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<script>
$(document).ready(function(){
  $("#div1").load( `sudo i2cget -y 1 0x20 0x13`);
  });
</script>
</head>
<body>

<div id="div1"</div>
</body>
</html>

Dělám někde chybu?

No nikde ten dotaz nevidím.

Dotaz zněl, že chci spouštět  skript v prostředí  JS.

Nakonec se tu došlo k závěru, že soubor nespustím, jen načtu.

Tudíž řešeni je spustíte přes JS jinou PHP stránku, která vykoná to, co potřebují.

Jelikož PHP zvládne linuxové příkazy, takže nemusím ani žádný další python script spouštět a vše mam v té PHP.

Používám to v raspberry k ovládaní GPIO pinu.

Takže třeba jen připojen notasem nebo telefonem k routru.

Tehdy mně funkční internet nezajímá.

Omlouvám se ale byl jsem pryč.

Toto jsem trochu nepochopil.

Ale už jsem o tom trochu přemýšlel proč volám PHP stránku přes to jquery.

Na druhé straně, jsem se něčemu přiučil a už přes to načítám hodnoty teploměru.

Ale proč se to jquery-1.10.2.js po každém spuštění tahá s netu.

To nejde ten skript někam uložit?

Třeba tem kde je ta stranka.

Pokud mi třeba nepojede net, nebude to fungovat, ne.

Zdravím.

Použivám  Complex Web Serve.

http://www.slunecnice.cz/sw/complex-web-server/

Nějak mi to nechce vyhazovat chyby.

V adresaří PHP je soubor php.ini

;----- error behaviour -----

error_reporting                 = E_ALL

display_errors                  = On
display_startup_errors          = On
track_errors                    = on

html_errors                     = On
;error_prepend_string = "<span style='color: #ff0000'>"
;error_append_string = "</span>"
docref_root                     = "/-----server-admin-----/php-manual/"
docref_ext                      = .html

log_errors                      = on
;error_log = php_errors.log
log_errors_max_len              = 1024
ignore_repeated_errors          = Off
ignore_repeated_source          = Off

report_memleaks                 = On

$( "#new-projects" ).load( "/1.php #projects li" );

Nakonec se vše vyřešilo 1 řadkem a my se tu s tým serem tyden   

#30 Ericsko
Jako timto zpusobem?

Tak to potom vytvořít PHP s tito kodem a spouštět ho přes ten AJAX.

To se mi našte v prohližečí nova prazdna stranka, což není moc dobre.

V hide asi spustit nepujde.

A aby pro provedení skriptu se sama ukončika,asi taky ne.

Toto mi normalně PHP sežere.

<?php 
system('sudo /var/www/scripts/test.py > /dev/null &');
exec('sudo python /var/www/test1.py');
?>

<?php
system ('sudo i2cset -y 1 0x20 0x01 0x00'); 
system ('sudo i2cset -y 1 0x20 0x12 0x01'); 
?>

Tak to potom vytvořít PHP s tito kodem a spouštět ho přes ten AJAX.

No jo, ja nevěděl.

<!DOCTYPE html>
<html>
<head>
<script>
function loadXMLDoc()
{
var xmlhttp;
if (window.XMLHttpRequest)
  {// code for IE7+, Firefox, Chrome, Opera, Safari
  xmlhttp=new XMLHttpRequest();
  }
else
  {// code for IE6, IE5
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
  }
xmlhttp.onreadystatechange=function()
  {
  if (xmlhttp.readyState==4 && xmlhttp.status==200)
    {
    alert(xmlhttp.responseText);
    }
}
xmlhttp.open("GET","test.py",true);
xmlhttp.send();
}
</script>
</head>
<body>
<button type="button" onclick="loadXMLDoc()">Request data</button>
</body>
</html>

Je to furt stejné.

Nespusti ho ale otevře a načte obsah .

Jsme na spravné cestě?

<!DOCTYPE html>
<html>
<head>
<script>
function loadXMLDoc()
{
var xmlhttp;
if (window.XMLHttpRequest)
  {// code for IE7+, Firefox, Chrome, Opera, Safari
  xmlhttp=new XMLHttpRequest();
  }
else
  {// code for IE6, IE5
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
  }
xmlhttp.onreadystatechange=function()
  {
  if (xmlhttp.readyState==4 && xmlhttp.status==200)
    {
    alert(xmlhttp.responseText);
    }
}
xmlhttp.open("GET","test.py",true);
xmlhttp.send();
}
</script>
</head>
<body>
<button type="button" onclick="loadXMLDoc()">Request data</button>
</body>
</html>

No nepatřím mezi ty co se vzdávají hned pří prvním neúspěchu.

Tak hledám a zkouším.

<!DOCTYPE html>
<html>
<head>
<script>
function loadXMLDoc()
{
var xmlhttp;
if (window.XMLHttpRequest)
  {// code for IE7+, Firefox, Chrome, Opera, Safari
  xmlhttp=new XMLHttpRequest();
  }
else
  {// code for IE6, IE5
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
  }
xmlhttp.onreadystatechange=function()
  {
  if (xmlhttp.readyState==4 && xmlhttp.status==200)
    {
    document.getElementById("myDiv").innerHTML=xmlhttp.responseText;
    }
}
//xmlhttp.open("GET","demo_get.asp",true);
xmlhttp.open("GET","info.txt",true);

xmlhttp.send();
}
</script>
</head>
<body>

<h2>AJAX</h2>
<button type="button" onclick="loadXMLDoc()">Request data</button>
<div id="myDiv"></div>

</body>
</html>

Při kliknutí na button to zavolá funkcí loadXMLDoc, ktera je v JS.

Přes ní se načtou data s mého souboru info.txt do myDiv a vypíší.

Toto mi funguje.

Když tu nejste na to, aby jste vše udělali za mně, tak alespoň poraďte jak to upravit, aby se v té funkcí nenačítala ty data do myDiv ale spustil nějaký můj skript.

Třeba test.py  nebo test.sh

No zustanu u těch puvodních gombiku.

Tak dik za ty rady.

Zdytečne stravene 3 dny hledaní po netu.

Tak dik moc všem.

Kdybych jen tušíl že tu chodí programatoří jen za vidinou zisku, ušetříl bych si spoustu času.

Za kolik bych asi prodal udělanou stranku s 1 gombikem.

#17 Ericsko
No učit se je dobra věc, ale trva to dlouho a nerad bych nechal za tu dobu sve Raspi zahalet.

Určitě se budu učit ale tád bych vyřešil první tento problem.

Zatím použivam toto

<html>
<head>
<?php
if (isset($_POST['Button1']))
{
system('sudo /var/www/scripts/zapni.py > /dev/null &');
}
if (isset($_POST['Button2']))
{
exec('sudo /var/www/scripts/vypni.py > /dev/null &');
}
?>
<title></title>
</head>
<body>
<form method="post">
  <table
 
  <tr>
  <td style="text-align: center;"><button name="Button1">První button </button></td>
   </tr>

  <tr>
    <td style="text-align: center;"><button name="Button2">Druhy button</button></td>
  </tr>    
</form>
</html>

Toto mi však nevyhovuje.

1 tlačitkem spustím 1 sktipt.

2 tlačítkem druhy.

Proto bych to rad předělal a řešil to přes JS

<script>
function changeImage() {
    var image = document.getElementById('myImage');
    if (image.src.match("bulbon")) {
        image.src = "zapni.gif";
    } else {
        image.src = "vypní.gif";
    }
}
</script>

Prvním kliknutím spustít 1 skript, druhym ten druhy.

Řek bych že pro profika co to děla každy den je to brnkačka, ne.

#15 Ericsko
No a tak pomoct?

Srandičky jo  

No jo.

Přehlédli jste ale že jsem začal s PHP a JS před 14 dny a vy na mně hned Ajax.

#8 KIIV

No to vím.

Proto při spuštěni stránky si uložím do proměnné ty hodnoty s registru v PHP.

Potom si je vytáhnu do JS

Takto vykreslím button

<script>
function changeImage() {
    var image = document.getElementById('myImage');
    if (image.src.match("bulbon")) {
        image.src = "zapni.gif";
    } else {
        image.src = "vypní.gif";
    }
}
</script>

Jen potřebují dořešit v té podmínce IF a else zavolaní nějaké PHP funkce, která by vykonala ten příkaz  i2cset -y -m 0x02 1 0x20 0x12 0xFF

No rozumnější bude tu napsat o co mi jde a možná poradíte jine řešení.
Nejsem žádný programátor .
PHP a JS jsem poprvé zkusil před 14 dny.

Koupil jsem si Raspberry Pi a začal se šprtat python, abych mohl ovládat GPA piny.
Nedávno jsem však zjistil , že se stejnými příkazy  to funguje i přes PHP.
<?php
sudo i2cset -y -m 0x02 1 0x20 0x12 0xFF  // zapnu GPA1
?>

A já bych rad docílil tohoto.

V PHP načtu do proměnné stav registru pro GPA1
$stavGPA1 = sudo i2cset -y -m 0x02 1 0x20 0x12 0xFF

Pokud je 0 chci na stránce vykreslit button s názvem ZAPNI přes který GPA1 zapnu  sudo i2cset -y -m 0x02 1 0x20 0x12 0xFF

Pokud je 1 chci na stránce vykreslit button s názvem VZPNI přes který GPA1 vypnu  sudo i2cset -y -m 0x02 1 0x20 0x12 0x00

To samé už při načtené stránce.
když kliknu na button zapni GPA1 zapnu a button se změní na vypni.
když kliknu na button vypni GPA1 vypnu a button se změní na zapni.

Poradíte prosím to nejjednodušší řešení.
Jediný problém co mam je že ty příkazy pro ovládaní pinu nefungují v JS.

Jak spustit PHP přes ten ajax jsem našel.

Spustím však přes něj jen funkcí.

A bez použití ajax?

Nedá se vytvořít v PHP funkce a pak ji přes JS zavolat?

Dobry den.

Přes PHP se da spustit skript na linux servru.

exec('sudo  /var/www/skript');

nebo system('sudo /var/www/scripts/test.py > /dev/null &');

Jak však na to přes JavaScript.

Čet jsem že JavaScript.neumí pracovat se soubory, takže asi i toto nedokaže.

#2 Kit
To jsem ale rad  

A jak na to by neško napsat?

Nebo nějaky odkaz?

Zdravím.

Jak načitat a ukladat do souboru jsem na netu našek spoustu navodu.

Co když však chcí přepsat text v 3 řadku za jiny.

Třeba v souboru na 3 řadku bude Off

Při kliknutí na button by se to přepsalo na ON

Jde to?

Dobry den.

Rad bych sprovozníl toto  http://www.astromik.org/raspi/41.htm

Na freehostingu mi to funguje.

Chtěl bych to však rozchodit na Rasbi.

Stači když si nainstalují Lighttpd nebo je třeba ještě něco doinstalovat.

Dobry den.

Koupil jsem si Raspberry Pi a potřebují ovládat GPIO.

Nejvíce návodu je pro python.

Tak jsem začal se základy

 http://howto.py.cz/cap01.htm#1.

Zajím mně jak je to s grafikou pro python?

Našel jsem toto.

https://wiki.python.org/moin/GuiProgramming

Na Raspberry Pi je systém  raspbian a v něm nainstalovaný Python 2.7.3

Rad bych docílil tohoto.

Chtěl bych si v grafickém editoru nakreslit půdorys mého domu, který bych umístil na pozadí programu .

A barevnými obrázky a gify na něm zobrazoval stav zařízení, které budu přes  Raspberry Pi ovládat.

Poraďte prosím, v čem by se to dalo nejjednodušeji udělat.

Prostě zapnu pin  GPIO.output(8, True), který mi spustí třeba ventil ústředního topení.
A na ploše se zobrazí obrázek červeného radiátorů.
Nebo pokud vypnu pin GPIO.output(8, False)
Obrázek se překresli na šedý radiátor.
Nejraděj bych, kdyby to zvládlo i gify (ty hybající se obrazky).
 
Ve Windows přes Visual basic nebo delphi by to byla brnkačka na par minut ale v python vůbec netuším jak na to.
Poradite?

Jsem rád že nejsem jediný, kdo to neví   

Zdravím.

Jak zjistím SSID  sitě ke ktere jsem zrovna připojeny?

Hm,tak jinak.

Ve form1 mam gombiky.

V každem je.

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.close
  Form2.show
end;

Každy button použiva form2, jen se při spouštění načitaji jina data.

Pronbem je že Form2.close formulař zavře ale furt visi v pamětí a jsou v něm načtena data.

Pokud použivam vlakba, tak i ty vlakna běží.

Když dam do form2.close přikaz  Form2.Free nebo  FreeAndNil(Form2) tak je to ok

Už ho však s form1 znovu nespustím, proto že je smazan a musím vytvořit novy a tu je problem.

Při spuštěni programu se načitají do paměti všechny formulaře.

Jak tedy zjistím zda ten formulař je v panětí.

Dobry den.

Jak zjistím s form1 že je form2 již spuštěn abych ho mohl s form1 ukončit.

Zdravím.

Mam 2 vlakna.

Procedure SrolujNahoruVlakno.Execute;
Procedure SrolujDoluVlakno.Execute;

Potřebují aby vždy běželo jen jedno vlakno.

Dotaz

Da se nějak zjistit zda je Thread vytvořen ???

Da se nějak zjistit zda Thread běži ???

Zdravim.

Když dam do vlakna Execute smyčku třeba 1 - 100 a v ni volam Synchronize(zapis), ve kterem neni nic jineho než StringGrid1.Repaint,  StringGrid nepřijemně problikava.

Zkusil jsem i toto a vysledek stejny

Form1.StringGrid1.enabled.false;

Form1.StringGrid1.Repaint;

Form1.StringGrid1.enabled.true;

Poradite

Zdravím.

Když jsem začal psat muj program měl jen par kb a bylo vše ok.

Aktualizace stahuji se servru.

If HTTPMethod('GET', 'http://xx.xx.xx.xx/mujprogram.exe') then
                                                        if ResultCode = 200 then
                                                                               begin
                                                                                Document.SaveToFile('.\mujprogram.exe')
                                                                                TS := Headers;
                                                                               end;

Dnes už je muj program 7 MB obluda a při stahovani se program vždy na dtu dobu než se soubor stahne se servru sekne.

Jak na to,jine řešení než to nacpat do vlakna.

Pokud v Create zakažu proceduru NewWindowRgn tak to vykresli.

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  NewWindowRgn;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.canvas.Font.Size:=18;
Form1.Canvas.Font.Style := [fsBold, fsUnderline];
Form1.Canvas.Font.Name:= 'Times New Roman';
Form1.Canvas.TextOut(200, 100, 'ahoj');
end;

procedure TForm1.NewWindowRgn;
var
  i, CoordX, CoordY: Integer;
  FormRgn, NewRgn: THandle;
begin
  CoordX:=(Width-ClientWidth) div 2;
  CoordY:=Height-ClientHeight-4;

  FormRgn:=CreateRectRgn(0, 0, Width, Height);

  NewRgn:= CreateRectRgn(
    CoordX,
    CoordY,
    CoordX+ClientWidth,
    CoordY+ClientHeight);
  CombineRgn(FormRgn, FormRgn, NewRgn, RGN_DIFF);

  for i:= 0 to ControlCount -1 do
    with Controls[i] do
    begin
      NewRgn:= CreateRectRgn(
        CoordX + Left,
        CoordY + Top,
        CoordX + Left + Width,
        CoordY + Top + Height);
      CombineRgn(FormRgn, FormRgn, NewRgn, RGN_OR);
    end;

  SetWindowRgn(Handle, FormRgn, True);
end;

procedure TForm1.Resize;
begin
  inherited;
  NewWindowRgn;
end;

Dobry den.

Jak zpruhlednit form je na netu spousta zdrojaku.

Ja bych však potřeboval do něj nacpat text aby to vypadalo že je text na tapetě plochy.

Pokud je form pruhledny tak Form1.Canvas.TextOut(200, 100, 'ahoj'); nefunguje.

Poradite.

Dik

#3 Borisek

A přece zadrhel.

Pokud si vytvořim profil tam kde se ukladaji tak je to OK

Path=Profiles/swocnxd9.default

Když ho však vytvořim na jiny HD tak je to v *****

Path=E:\ZALOHA\Mozilla Profiles

SHGetPathFromIDList(pidl,cesta);
cestakini := cesta + '\Mozilla\Firefox\profiles.ini';
  If FileExists(cestakini)= true then
                                               Begin
                                               IniFile:= TIniFile.Create (cestakini);
                                               NazevProfilu:= IniFile.ReadString ('Profile0','Path',NazevProfilu);
                                               IniFile.Destroy;
                                               end;

CelaCesta_Firefox := cesta + '\Mozilla\Firefox\'+ NazevProfilu + '\prefs.js';

Na to jsem take koukak.

Myslel jsem zda není jine řešení.

Do bataku stačilo   *.default 

Tak jsem to načet s toho ini a je to OK.

Zdravím.

Potřebuji najit cestu k sourboru, ktery je umistěn v adresaři, kde si uklada mizilla firefox profil.

Normalně by to bylo takto.

SHGetPathFromIDList(pidl,cesta);
CelaCesta_Firefox := cesta + '\Mozilla\Firefox\Profiles\iu9a24n6.default\';

Problem je že v každem prohližeči je ten poslední adresař jiny.

Vždy tam je to default.

Měni se jen to před nim  iu9a24n6

V CMD jsem to rozchodil takto

cd /D "%APPDATA%\Mozilla\Firefox\Profiles"
cd *.default
set ffile=%cd%

http://www.wupload.com/file/2672390147

A zase nemužu nalest to spravne pismenko 

wget -P ./seznamy http://81.15.11.11/test.txt

Stahne mi se servru soubor test.txt na disk, kde je wget do adresaře seznamy.
To je to co potřebují.
Když však opakují stahovaní tak se soubor nepřepiše ale uklada to jako
test.txt.1
test.txt.2
test.txt.3

No a když mam v uses červeně podtržene Icmp a při spuštění to vypada takto.

http://i40.tinypic.com/2vsn8xs.jpg

Zdravím.

Narazil jsem na již udělany zdrojak.http://www.provaz.cz/sector02/clanky-20.html

přimo zdrojak je tu. www.provaz.cz/sector02/download_ok.php?id=51

Při spuštěni to vyhodi chybu.

Socket Error #10013 Access denied.

Marně se s tym trapim již 2 den.

Neporadi někdo ne je problem.

Zdravím.

Potřebuji odstranit můj posled problém a nevím jak na to.
Když kliknu na nějakou buňku, tak zůstane označena i když s ni dam myš pryč .
Ne že by mi to vadilo, ale pokud se přiřadí každé buňce nějaká akce, buňka je označena, a omylem se potočí kolečkem na myši tak je to maras.
Program začne provádět všechny přiřazené akce buňkám přes které omylem myš přejela.

[IMG]http://i54.tinypic.com/2qjwp07.jpg[/IMG]

Zdravím.

Nevi někdo o zdrojaku na zjistěni IP,masy a brany.

Snažil jsem se o to přes WinSock ale bohužel ho už použiva nějaka jina knihovna.

Takže timto jsme jako došli k zavěru že přes přikazovy řadek lanka nejde vypinat a zapinat jo.

#6 liborb

Počitači je snad jedno jak si to kdo pojmenuje.

Kluci, proč mi nefunguje v XP toto.

netsh interface set interface name="Lan sit" admin=disabled

http://forum.whatismyip.com/…nection-t15/

Zdravím.
Udělal jsem si batak, ktery mi nastavi sit (IP.masku,branu, DNS.) přes funkci netsh
Trva to však dost dlouho.
Dnes jsem se na netu dočet že to jde i přes VBScript.
Bude to přes ten VBScript rychlejši.

Zdravím všechny.
Neví někdo jak ve Windows xp zalohovat seznamy wi-fi sítí, kde jsem se připojoval a pak tou zalohou nakrmit nove winy.
Potřebují přeinstalovat systém a nerad bych o to přišel.

Ja čet na netu že se to děla přes registry

Pokud je nainstalována, má v registru zápis instalátoru
Testuje se pry přikazem reg query

Zdravi všechny a prosím o radu.
Jak zjistim zda je v PC nainstalovan nějaky program.
Třeba Skype nebo ICQ

Zdravím chytré hlavy.

Neví někdo kde se ukládají v notasu ve Windows xp seznamy wi-fi sítí kde jsem se připojil a jak je zálohovat.
Potřebují přeinstalovat systém a nerad bych o to přišel.
Předem moc dik a nezlobte se že můj dotaz nepatři tady.

Třeba ve win vista a sevn to jde přes př.řádek pomoci příkazu netsh wlan export profile


Dovede to i program NetSetMan ale bohužel po jednom a ja jich mam již přes 500 kousku.

Neporadí někdo.

Jus,poradite jak na to.

netsh interface ipv4 set address name="Připojení k místní síti" static 192.168.1.4 255.255.255.0 192.168.1.2 1
netsh interface ipv4 set dnsserver name="Připojení k místní síti" static 192.168.1.2 primary
netsh interface ipv4 add dnsserver name="Připojení k místní síti" 192.168.1.1 index=2
ipconfig /flushdns

Proč je Připojení k místní sít skomolene a misti i tam je Y

Tak o tom vím a zkoušel jsem.

Dělam servisniho technika v jedne wi-fi siti.
Možna nebudete věřit, ale spousta lidi nedokaže najet no nastaveni prohližeču a napsat tam tu proxy.
Tak nevěřim tomu že když vytvořim nějaky PAC script že to takovym lidem pomuže.
Těžko jim vysvětlit kam to nakopitovat,kde a co přepnout a když připočtu k těmto lidem duchodce, kteři jsou radi jak zapnou PC a spusti prohližeč tak je zbytečne něco takoveho tvořit.

Rozumnějši by byl batak co by vepsal tu proxy do toho prefs.js
Moc zkušenosti s CMD nemam a proto se obracím o pomoc tady.
Pomužete :smile4: